Fix stupid error: one little character out of place

This commit is contained in:
Tony Garnock-Jones 2013-10-30 15:12:59 +00:00
parent 58c861a8d8
commit 794e4d96f4
1 changed files with 1 additions and 1 deletions

View File

@ -60,7 +60,7 @@
(define (feedback body #:meta-level [ml 0]) (message body ml #t))
(define (drop-routes rs) (filter-map drop-route rs))
(define (lift-routes rs) (map lift-routes rs))
(define (lift-routes rs) (map lift-route rs))
(define (co-route r #:level [level-override #f])
(match-define (route sub? pat ml l) r)