Switch to using the <- syntax for everything

[mudsync.git] / mudsync / gameobj.scm

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 20fc291340198c25e12ad2c718c985e55ad35c42..334f4397593054d71c744ee062e40c850909be34 100644 (file)
--- 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