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