From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Wed, 25 Jan 2017 00:12:17 +0000 (-0600)
Subject: switch room "tell" to not use string-apend
X-Git-Tag: fosdem-2017~84
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=bbf45570e7dfe20e132cc8e4601ccbf2de667ff3;p=mudsync.git

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 877e2fa..c1e8536 100644
--- 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
-          (<- (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"))))