switch room "tell" to not use string-apend

Not necessary now that we have scrubl

diff --git a/mudsync/room.scm b/mudsync/room.scm
index 877e2fa564589cff7a2ae5bf4353f618b1a82bc6..c1e853689d81422e46fa07c5870bfdc7b9dacf70 100644 (file)
--- a/mudsync/room.scm
+++ b/mudsync/room.scm
@@ -211,10 +211,8 @@
            (mbody-val (<-wait matching-object 'get-desc
                             #:whos-looking (message-from message)))))
       (if obj-desc
            (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"))))
    (else
     (<- (message-from message) 'tell
         #:text "You don't see that here, so you can't look at it.\n"))))