syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Bugfix in matcher-match-matcher

This commit is contained in:
Tony Garnock-Jones 2014-05-14 00:02:07 -04:00
parent ca9bab153c
commit 1a0c5fcd62
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
minimart/route.rkt
View File

@ -350,7 +350,7 @@
[(key-open? key) (walk (rwildseq w) k acc1 acc2)] [(key-open? key) (walk (rwildseq w) k acc1 acc2)]
[(key-close? key) (if (wildcard-sequence? w) [(key-close? key) (if (wildcard-sequence? w)
(walk (wildcard-sequence-matcher w) k acc1 acc2) (walk (wildcard-sequence-matcher w) k acc1 acc2)
#f)] (values acc1 acc2))]
[else (walk w k acc1 acc2)]) [else (walk w k acc1 acc2)])
(values acc1 acc2))) (values acc1 acc2)))
(match* (re1 re2) (match* (re1 re2)