X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fparser.scm;fp=mudsync%2Fparser.scm;h=3d84195206cce90e0923c7fb40420691d3574f5a;hp=305f43d2ca49e6f7d080f0766a181f1e8de34a04;hb=1c65eb772aaa7c3a4278b95bc02660dc79c25438;hpb=4738c5ae39e26b65cdba3bec005bfe034c4ea2c2

diff --git a/mudsync/parser.scm b/mudsync/parser.scm
index 305f43d..3d84195 100644
--- a/mudsync/parser.scm
+++ b/mudsync/parser.scm
@@ -81,13 +81,13 @@
   (sre->irregex
    `(: (? (: ,preposition (+ space)))  ; possibly a preposition (ignored)
        (? (: ,article (+ space)))     ; possibly an article (ignored)
-       (=> direct-obj (* any)))))  ; direct object (kept)
+       (=> direct-obj (+ any)))))  ; direct object (kept)
 
 (define (cmatch-direct-obj phrase)
   (match-to-kwargs direct-irx phrase))
 
 (define (cmatch-empty phrase)
-  (if (equal? (string-trim phrase) ")")
+  (if (equal? (string-trim phrase) "")
       '()
       #f))