#:use-module (8sync actors)
#:use-module (8sync rmeta-slot)
#:use-module (srfi srfi-1)
#:use-module (8sync actors)
#:use-module (8sync rmeta-slot)
#:use-module (srfi srfi-1)
(make-command verbs
cmatch-direct-obj
;; @@: Should we allow fancier matching than this?
;; Let the actor itself pass along this whole method?
(lambda* (goes-by #:key direct-obj)
(make-command verbs
cmatch-direct-obj
;; @@: Should we allow fancier matching than this?
;; Let the actor itself pass along this whole method?
(lambda* (goes-by #:key direct-obj)
(make-command verbs
cmatch-direct-obj
;; @@: Should we allow fancier matching than this?
;; Let the actor itself pass along this whole method?
(const #t)
action
(make-command verbs
cmatch-direct-obj
;; @@: Should we allow fancier matching than this?
;; Let the actor itself pass along this whole method?
(const #t)
action
- (member indir-obj goes-by)
- (member preposition prepositions))
- (member indir-obj goes-by)))
+ (ci-member indir-obj goes-by)
+ (ci-member preposition prepositions))
+ (ci-member indir-obj goes-by)))
- (member direct-obj goes-by)
- (member preposition prepositions))
- (member direct-obj goes-by)))
+ (ci-member direct-obj goes-by)
+ (ci-member preposition prepositions))
+ (ci-member direct-obj goes-by)))
;; @@: We should probably ONLY allow these to go to users!
(define* (custom-command verbs matcher should-handle action
;; @@: We should probably ONLY allow these to go to users!
(define* (custom-command verbs matcher should-handle action