Add routing-implementation to master
This commit is contained in:
parent
dc54c31ab2
commit
187d4affa8
|
@ -33,6 +33,7 @@
|
||||||
deliver-event
|
deliver-event
|
||||||
transition-bind
|
transition-bind
|
||||||
sequence-transitions
|
sequence-transitions
|
||||||
|
routing-implementation
|
||||||
|
|
||||||
log-events-and-actions?)
|
log-events-and-actions?)
|
||||||
|
|
||||||
|
@ -309,3 +310,5 @@
|
||||||
(issue-local-routing-update (struct-copy world w [downward-routes (lift-routes routes)]))]
|
(issue-local-routing-update (struct-copy world w [downward-routes (lift-routes routes)]))]
|
||||||
[(message body meta-level feedback?)
|
[(message body meta-level feedback?)
|
||||||
(enqueue-event (message body (+ meta-level 1) feedback?) w)]))
|
(enqueue-event (message body (+ meta-level 1) feedback?) w)]))
|
||||||
|
|
||||||
|
(define routing-implementation 'naive)
|
Loading…
Reference in New Issue