diff --git a/minimart/core.rkt b/minimart/core.rkt index a9bd6cd..a99a475 100644 --- a/minimart/core.rkt +++ b/minimart/core.rkt @@ -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)