Add routing-implementation to fastrouting
This commit is contained in:
parent
68b12325f1
commit
9ea6cc038d
|
@ -40,7 +40,8 @@
|
||||||
deliver-event
|
deliver-event
|
||||||
transition-bind
|
transition-bind
|
||||||
sequence-transitions
|
sequence-transitions
|
||||||
log-events-and-actions?)
|
log-events-and-actions?
|
||||||
|
routing-implementation)
|
||||||
|
|
||||||
(define pid-stack (make-parameter '()))
|
(define pid-stack (make-parameter '()))
|
||||||
(define log-events-and-actions? (make-parameter #f))
|
(define log-events-and-actions? (make-parameter #f))
|
||||||
|
@ -291,3 +292,5 @@
|
||||||
(gestalt-union old-downward new-downward))]
|
(gestalt-union old-downward new-downward))]
|
||||||
[(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 'fastrouting)
|
||||||
|
|
Loading…
Reference in New Issue