Add routing-implementation to master

2014-05-14 13:46:42 -04:00 · 2014-05-14 13:46:42 -04:00 · 187d4affa8
parent dc54c31ab2
commit 187d4affa8
1 changed files with 3 additions and 0 deletions
--- a/minimart/core.rkt
+++ b/minimart/core.rkt
@ -33,6 +33,7 @@
 	 deliver-event
 	 transition-bind
 	 sequence-transitions
+	 routing-implementation

 	 log-events-and-actions?)

@ -309,3 +310,5 @@
     (issue-local-routing-update (struct-copy world w [downward-routes (lift-routes routes)]))]
    [(message body meta-level feedback?)
     (enqueue-event (message body (+ meta-level 1) feedback?) w)]))
+
+(define routing-implementation 'naive)