From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sun, 11 Dec 2016 17:05:07 +0000 (-0600)
Subject: Switch to using the <- syntax for everything
X-Git-Tag: fosdem-2017~131
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=cd40c01c4ac301e7d991e4df4d17d2c693d11d05;p=mudsync.git

Switch to using the <- syntax for everything
---

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"))))