From 2f494f5ec007b7aa7278ab97d49f1f5df159b541 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 28 Oct 2013 19:07:45 +0000 Subject: [PATCH] Fix error in intersect-routes --- minimart/core.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/minimart/core.rkt b/minimart/core.rkt index 82b8323..4d9a826 100644 --- a/minimart/core.rkt +++ b/minimart/core.rkt @@ -88,7 +88,7 @@ (= (route-meta-level r1) (route-meta-level r2)) (< (route-level r1) (route-level r2))) (intersect (route-pattern r1) (route-pattern r2) - (lambda (rr) (loop2 rs2 (cons rr acc))) + (lambda (rr) (loop2 rs2 (cons (struct-copy route r1 [pattern rr]) acc))) (lambda () (loop2 rs2 acc))) (loop2 rs2 acc))]))])))