Update gestalt union and erasure to match current API
This commit is contained in:
parent
8210272054
commit
536a7d8e3d
|
@ -183,11 +183,14 @@
|
||||||
|
|
||||||
(define (update-aggregate-gestalt w pid old-g new-g)
|
(define (update-aggregate-gestalt w pid old-g new-g)
|
||||||
(struct-copy world w [aggregate-gestalt
|
(struct-copy world w [aggregate-gestalt
|
||||||
(gestalt-combine (gestalt-combine old-g
|
(gestalt-union (gestalt-combine-straight old-g
|
||||||
(world-aggregate-gestalt w)
|
(world-aggregate-gestalt w)
|
||||||
matcher-erase-path)
|
(lambda (side x)
|
||||||
new-g
|
(case side
|
||||||
matcher-union)]))
|
[(left-longer) '()]
|
||||||
|
[(right-longer) x]))
|
||||||
|
matcher-erase-path)
|
||||||
|
new-g)]))
|
||||||
|
|
||||||
(define (issue-local-routing-update w relevant-gestalt)
|
(define (issue-local-routing-update w relevant-gestalt)
|
||||||
(enqueue-event (routing-update relevant-gestalt) w))
|
(enqueue-event (routing-update relevant-gestalt) w))
|
||||||
|
|
Loading…
Reference in New Issue