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

Updates to changed API

This commit is contained in:
Tony Garnock-Jones 2014-05-19 20:01:43 -04:00
parent 36b38dc757
commit 77d23a0cba
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
minimart/core.rkt
View File

@ -75,8 +75,10 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Protocol and utilities
(define (sub p #:meta-level [ml 0] #:level [l 0]) (simple-gestalt (pattern->matcher #t p) #f l ml))
(define (pub p #:meta-level [ml 0] #:level [l 0]) (simple-gestalt #f (pattern->matcher #t p) l ml))
(define (sub p #:meta-level [ml 0] #:level [l 0])
(simple-gestalt (pattern->matcher (set #t) p) #f l ml))
(define (pub p #:meta-level [ml 0] #:level [l 0])
(simple-gestalt #f (pattern->matcher (set #t) p) l ml))
(define (spawn behavior state [gestalt (gestalt-empty)]) (process gestalt behavior state))
(define (send body #:meta-level [ml 0]) (message body ml #f))

2
minimart/gestalt.rkt
View File

@ -152,7 +152,7 @@
(gestalt (map safe-cdr (gestalt-metalevels g2)))
(lambda (side x) '())
(lambda (g1 g2) (matcher-intersect g1 g2
(lambda (v1 v2) v1)))))
#:combine (lambda (v1 v2) v1)))))
(define (gestalt-match g1 g2)
(define (zu sa1 sa2)