projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
;; 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
(define (gameobj-replace-step-occupants actor replace-reply)
(define occupants