(sre->irregex
`(: (? (: ,preposition (+ space))) ; possibly a preposition (ignored)
(? (: ,article (+ space))) ; possibly an article (ignored)
- (=> direct-obj (* any))))) ; direct object (kept)
+ (=> direct-obj (+ any))))) ; direct object (kept)
(define (cmatch-direct-obj phrase)
(match-to-kwargs direct-irx phrase))
(define (cmatch-empty phrase)
- (if (equal? (string-trim phrase) ")")
+ (if (equal? (string-trim phrase) "")
'()
#f))