Update to use #:init-thunk instead of #:init-value on actions slot

[mudsync.git] / mudsync / room.scm

diff --git a/mudsync/room.scm b/mudsync/room.scm
index 877e2fa564589cff7a2ae5bf4353f618b1a82bc6..4c02e7fe3c8d3ed18601434cb0314f7d1a442763 100644 (file)
--- a/mudsync/room.scm
+++ b/mudsync/room.scm
@@ -82,7 +82,7 @@
    #:init-value (wrap %room-contain-commands))
 
   (actions #:allocation #:each-subclass
-           #:init-value
+           #:init-thunk
            (build-actions
             (cmd-go room-cmd-go)
             (cmd-go-where room-cmd-go-where)
@@ -211,10 +211,8 @@
            (mbody-val (<-wait matching-object 'get-desc
                             #:whos-looking (message-from message)))))
       (if obj-desc
-          (<- (message-from message) 'tell
-              #:text (string-append obj-desc "\n"))
-          (<- (message-from message) 'tell
-              #:text (string-append %formless-desc "\n")))))
+          (<- (message-from message) 'tell #:text obj-desc)
+          (<- (message-from message) 'tell #:text %formless-desc))))
    (else
     (<- (message-from message) 'tell
         #:text "You don't see that here, so you can't look at it.\n"))))