From 1a0c5fcd62632d8b352a4a86715ad1edf2398bca Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 14 May 2014 00:02:07 -0400 Subject: [PATCH] Bugfix in matcher-match-matcher --- minimart/route.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/minimart/route.rkt b/minimart/route.rkt index 17aa5e3..c71c0af 100644 --- a/minimart/route.rkt +++ b/minimart/route.rkt @@ -350,7 +350,7 @@ [(key-open? key) (walk (rwildseq w) k acc1 acc2)] [(key-close? key) (if (wildcard-sequence? w) (walk (wildcard-sequence-matcher w) k acc1 acc2) - #f)] + (values acc1 acc2))] [else (walk w k acc1 acc2)]) (values acc1 acc2))) (match* (re1 re2)