projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add "from" to list of prepositions in parser.scm
[mudsync.git]
/
mudsync
/
parser.scm
diff --git
a/mudsync/parser.scm
b/mudsync/parser.scm
index 6bba8dd7fd14c446e1be03bf220738e7848c8621..e9a788dbf4375c9f863c8b0119eb9fd3751fe6da 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"))
;; 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" "from"))
(define indirect-irx
(sre->irregex
(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)
(? (: ,article (+ space))) ; possibly an article (ignored)
(=> direct-obj (* any)) ; direct object (kept)
(+ space)