From cd40c01c4ac301e7d991e4df4d17d2c693d11d05 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 11 Dec 2016 11:05:07 -0600 Subject: [PATCH] Switch to using the <- syntax for everything --- mudsync/gameobj.scm | 4 ++-- mudsync/player.scm | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm index 20fc291..334f439 100644 --- a/mudsync/gameobj.scm +++ b/mudsync/gameobj.scm @@ -127,8 +127,8 @@ ;; Kind of a useful utility, maybe? (define (simple-slot-getter slot) (lambda (actor message) - (reply-message actor message - #:val (slot-ref actor slot)))) + (<-reply actor message + #:val (slot-ref actor slot)))) (define (gameobj-replace-step-occupants actor replace-reply) (define occupants diff --git a/mudsync/player.scm b/mudsync/player.scm index 172b810..a07c141 100644 --- a/mudsync/player.scm +++ b/mudsync/player.scm @@ -89,7 +89,7 @@ (match winner ((cmd-action winner-id message-args) - (apply send-message player winner-id cmd-action message-args)) + (apply <- player winner-id cmd-action message-args)) (#f (<- player (gameobj-gm player) 'write-home #:text "Huh?\n")))) -- 2.31.1