Updates to changed API
This commit is contained in:
parent
36b38dc757
commit
77d23a0cba
|
@ -75,8 +75,10 @@
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Protocol and utilities
|
;; Protocol and utilities
|
||||||
|
|
||||||
(define (sub p #:meta-level [ml 0] #:level [l 0]) (simple-gestalt (pattern->matcher #t p) #f l ml))
|
(define (sub p #:meta-level [ml 0] #:level [l 0])
|
||||||
(define (pub p #:meta-level [ml 0] #:level [l 0]) (simple-gestalt #f (pattern->matcher #t p) l ml))
|
(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 (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))
|
||||||
|
|
|
@ -152,7 +152,7 @@
|
||||||
(gestalt (map safe-cdr (gestalt-metalevels g2)))
|
(gestalt (map safe-cdr (gestalt-metalevels g2)))
|
||||||
(lambda (side x) '())
|
(lambda (side x) '())
|
||||||
(lambda (g1 g2) (matcher-intersect g1 g2
|
(lambda (g1 g2) (matcher-intersect g1 g2
|
||||||
(lambda (v1 v2) v1)))))
|
#:combine (lambda (v1 v2) v1)))))
|
||||||
|
|
||||||
(define (gestalt-match g1 g2)
|
(define (gestalt-match g1 g2)
|
||||||
(define (zu sa1 sa2)
|
(define (zu sa1 sa2)
|
||||||
|
|
Loading…
Reference in New Issue