Fix stupid cut and paste error

This commit is contained in:
Tony Garnock-Jones 2013-10-28 19:06:09 +00:00
parent 371dbef54e
commit 1c5eb177c5
1 changed files with 1 additions and 1 deletions

View File

@ -50,7 +50,7 @@
(route s? p (+ ml 1) l))
(define (sub p #:meta-level [ml 0] #:level [l 0]) (route #t p ml l))
(define (pub p #:meta-level [ml 0] #:level [l 0]) (route #t p ml l))
(define (pub p #:meta-level [ml 0] #:level [l 0]) (route #f p ml l))
(define (spawn behavior state [initial-routes '()]) (process initial-routes behavior state))
(define (send body #:meta-level [ml 0]) (message body ml #f))