;; definite and indefinite, but not partitive articles
(define article '(or "the" "a" "an"))
-(define preposition '(or "with" "in" "on" "out of" "at"))
+(define preposition '(or "with" "in" "on" "out of" "at" "as"))
(define indirect-irx
(sre->irregex
(define (cmatch-direct-obj-greedy phrase)
;; Turns out this uses the same semantics as splitting verb/rest
- (match (split-verb-and-rest string)
+ (match (split-verb-and-rest phrase)
((direct-obj . rest)
(list #:direct-obj direct-obj
#:rest rest))
(#f #f)))
(define (cmatch-greedy phrase)
- `((line . ,phrase)))
+ `(#:phrase ,phrase))
;; (define say-example "say I really need to get going.")
;; (define attack-sword-example "hit goblin with sword")