X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fparser.scm;h=e9a788dbf4375c9f863c8b0119eb9fd3751fe6da;hp=bbbab135b131341a8bb72dd23d4fc517e5ec2178;hb=0b36f49076a6dfb3cc328f6674b5bdd712d7a394;hpb=82ba6326f28edd948b5f73cbc74837754e52e0cb diff --git a/mudsync/parser.scm b/mudsync/parser.scm index bbbab13..e9a788d 100644 --- a/mudsync/parser.scm +++ b/mudsync/parser.scm @@ -62,11 +62,11 @@ ;; definite and indefinite, but not partitive articles (define article '(or "the" "a" "an")) (define preposition '(or "with" "in" "on" "out of" "at" "as" "to" - "about")) + "about" "from")) (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)