From 9ea6cc038d9b2a21ecba376c8ff18e2ca9c6a8f4 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 14 May 2014 13:47:21 -0400 Subject: [PATCH] Add routing-implementation to fastrouting --- minimart/core.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/minimart/core.rkt b/minimart/core.rkt index e3e017c..a6a3ef9 100644 --- a/minimart/core.rkt +++ b/minimart/core.rkt @@ -40,7 +40,8 @@ deliver-event transition-bind sequence-transitions - log-events-and-actions?) + log-events-and-actions? + routing-implementation) (define pid-stack (make-parameter '())) (define log-events-and-actions? (make-parameter #f)) @@ -291,3 +292,5 @@ (gestalt-union old-downward new-downward))] [(message body meta-level feedback?) (enqueue-event (message body (+ meta-level 1) feedback?) w)])) + +(define routing-implementation 'fastrouting)