X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fparser.scm;fp=mudsync%2Fparser.scm;h=034b22f3f2f04dc8f5e2bc609658241e5b9fbd43;hp=bbbab135b131341a8bb72dd23d4fc517e5ec2178;hb=126d9c593cc4c26082c972741ff69d3b147b7fcd;hpb=b2f9a911ac1663fda4dc3cf18ade3334c01327b2 diff --git a/mudsync/parser.scm b/mudsync/parser.scm index bbbab13..034b22f 100644 --- a/mudsync/parser.scm +++ b/mudsync/parser.scm @@ -66,7 +66,7 @@ (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)