X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fparser.scm;h=034b22f3f2f04dc8f5e2bc609658241e5b9fbd43;hp=6bba8dd7fd14c446e1be03bf220738e7848c8621;hb=bbf45570e7dfe20e132cc8e4601ccbf2de667ff3;hpb=5128272343835236d5e3410e12728cb2efe5a39f diff --git a/mudsync/parser.scm b/mudsync/parser.scm index 6bba8dd..034b22f 100644 --- 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)