projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Port to the remove-define-mhandler 8sync branch
[mudsync.git]
/
mudsync
/
thing.scm
diff --git
a/mudsync/thing.scm
b/mudsync/thing.scm
index a3ae6b003e3d706407252ca931e9f1fbd4d50a56..7b3a71d1538cc81c14693f3630ff88e866d22646 100644
(file)
--- a/
mudsync/thing.scm
+++ b/
mudsync/thing.scm
@@
-79,16
+79,16
@@
#:init-value
(wrap-apply thing-dispatcher)))
#:init-value
(wrap-apply thing-dispatcher)))
-(define
-mhandler (thing-cmd-take thing message
direct-obj)
+(define
* (thing-cmd-take thing message #:key
direct-obj)
(define player (message-from message))
(define player-name
(define player (message-from message))
(define player-name
- (m
essage-ref
- (<-wait thing player 'get-name)
-
'
val))
+ (m
sg-receive (_ #:key val)
+
(<-wait thing player 'get-name)
+
val))
(define player-loc
(define player-loc
- (m
essage-ref
- (<-wait thing player 'get-loc)
-
'
val))
+ (m
sg-receive (_ #:key val)
+
(<-wait thing player 'get-loc)
+
val))
(define thing-name (slot-ref thing 'name))
(define should-take
(slot-ref-maybe-runcheck thing 'takeable player))
(define thing-name (slot-ref thing 'name))
(define should-take
(slot-ref-maybe-runcheck thing 'takeable player))
@@
-108,16
+108,16
@@
#:text (format #f "It doesn't seem like you can pick up ~a.\n"
thing-name))))
#:text (format #f "It doesn't seem like you can pick up ~a.\n"
thing-name))))
-(define
-mhandler (thing-cmd-drop thing message
direct-obj)
+(define
* (thing-cmd-drop thing message #:key
direct-obj)
(define player (message-from message))
(define player-name
(define player (message-from message))
(define player-name
- (m
essage-ref
- (<-wait thing player 'get-name)
-
'
val))
+ (m
sg-receive (_ #:key val)
+
(<-wait thing player 'get-name)
+
val))
(define player-loc
(define player-loc
- (m
essage-ref
- (<-wait thing player 'get-loc)
-
'
val))
+ (m
sg-receive (_ #:key val)
+
(<-wait thing player 'get-loc)
+
val))
(define thing-name (slot-ref thing 'name))
(define should-drop
(slot-ref-maybe-runcheck thing 'dropable player))
(define thing-name (slot-ref thing 'name))
(define should-drop
(slot-ref-maybe-runcheck thing 'dropable player))