syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

gestalt-accepts?

This commit is contained in:
Tony Garnock-Jones 2014-05-28 16:30:50 -04:00
parent 141f85b664
commit 1a63a2c35d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
minimart/core.rkt
View File

@ -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))