Bugfix in matcher-match-matcher

2014-05-14 00:02:07 -04:00 · 2014-05-14 00:02:07 -04:00 · 1a0c5fcd62
parent ca9bab153c
commit 1a0c5fcd62
1 changed files with 1 additions and 1 deletions
--- 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)