gestalt-accepts?
This commit is contained in:
parent
141f85b664
commit
1a63a2c35d
|
@ -25,6 +25,7 @@
|
|||
|
||||
sub
|
||||
pub
|
||||
gestalt-accepts?
|
||||
|
||||
spawn
|
||||
send
|
||||
|
@ -73,6 +74,10 @@
|
|||
(define (sub p #:meta-level [ml 0] #:level [l 0]) (simple-gestalt #f p l ml))
|
||||
(define (pub p #:meta-level [ml 0] #:level [l 0]) (simple-gestalt #t p l ml))
|
||||
|
||||
(define (gestalt-accepts? g m)
|
||||
(match-define (message b ml f?) m)
|
||||
(not (set-empty? (gestalt-match-value g b ml f?))))
|
||||
|
||||
(define (spawn behavior state [gestalt (gestalt-empty)]) (process gestalt behavior state))
|
||||
(define (send body #:meta-level [ml 0]) (message body ml #f))
|
||||
(define (feedback body #:meta-level [ml 0]) (message body ml #t))
|
||||
|
|
Loading…
Reference in New Issue