switch room "tell" to not use string-apend

[mudsync.git] / mudsync / parser.scm

diff --git a/mudsync/parser.scm b/mudsync/parser.scm
index bbbab135b131341a8bb72dd23d4fc517e5ec2178..034b22f3f2f04dc8f5e2bc609658241e5b9fbd43 100644 (file)
--- a/mudsync/parser.scm
+++ b/mudsync/parser.scm
@@ -66,7 +66,7 @@
 
 (define indirect-irx
   (sre->irregex
 
 (define indirect-irx
   (sre->irregex

-   `(: (? (: ,preposition (+ space)))  ; possibly a preposition (ignored)
+   `(: (? (: ,preposition (+ space)))  ; possibly a preposition

        (? (: ,article (+ space)))      ; possibly an article (ignored)
        (=> direct-obj (* any))      ; direct object (kept)
        (+ space)
        (? (: ,article (+ space)))      ; possibly an article (ignored)
        (=> direct-obj (* any))      ; direct object (kept)
        (+ space)