projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update to use #:init-thunk instead of #:init-value on actions slot
[mudsync.git]
/
mudsync
/
player.scm
diff --git
a/mudsync/player.scm
b/mudsync/player.scm
index 784db7c6f9a08691d919ad1a66a26693bbe24e5d..bfa7ca88b0e8911810a43246cbe59ad905ba0845 100644
(file)
--- a/
mudsync/player.scm
+++ b/
mudsync/player.scm
@@
-51,7
+51,7
@@
(self-commands #:init-value (wrap player-self-commands))
(actions #:allocation #:each-subclass
(self-commands #:init-value (wrap player-self-commands))
(actions #:allocation #:each-subclass
- #:init-
value
+ #:init-
thunk
(build-actions
(init player-init)
(handle-input player-handle-input)
(build-actions
(init player-init)
(handle-input player-handle-input)
@@
-84,7
+84,7
@@
(apply <- winner-id cmd-action message-args))
(#f
(<- (gameobj-gm player) 'write-home
(apply <- winner-id cmd-action message-args))
(#f
(<- (gameobj-gm player) 'write-home
- #:text "
Huh
? (type \"help\" for common commands)\n"))))
+ #:text "
Sorry, I didn't understand that
? (type \"help\" for common commands)\n"))))
(define* (player-tell player message #:key text)
(<- (gameobj-gm player) 'write-home
(define* (player-tell player message #:key text)
(<- (gameobj-gm player) 'write-home