switch room "tell" to not use string-apend

[mudsync.git] / mudsync / parser.scm

diff --git a/mudsync/parser.scm b/mudsync/parser.scm
index 6bba8dd7fd14c446e1be03bf220738e7848c8621..034b22f3f2f04dc8f5e2bc609658241e5b9fbd43 100644 (file)
--- a/mudsync/parser.scm
+++ b/mudsync/parser.scm
@@ -61,11 +61,12 @@
 
 ;; definite and indefinite, but not partitive articles
 (define article '(or "the" "a" "an"))
-(define preposition '(or "with" "in" "on" "out of" "at" "as" "to"))
+(define preposition '(or "with" "in" "on" "out of" "at" "as" "to"
+                         "about"))
 
 (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)