#: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)
;; @@: Should we allow fancier matching than this?
;; Let the actor itself pass along this whole method?
(lambda* (goes-by #:key direct-obj)
;; @@: Should we allow fancier matching than this?
;; Let the actor itself pass along this whole method?
(lambda* (goes-by #:key direct-obj)
- (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)))