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
-           #:init-value
+           #:init-thunk
            (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
-         #: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