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

Remove redundant and wrong clause in match-values

This commit is contained in:
Tony Garnock-Jones 2014-07-18 19:58:08 -07:00
parent 4c031254f7
commit a86a0cd326
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
minimart/route.rkt
View File

@ -468,10 +468,6 @@
(walk rest stack1 (rlookup r EOS (get ?)))])] (walk rest stack1 (rlookup r EOS (get ?)))])]
[(cons (== ?) rest) [(cons (== ?) rest)
(error 'matcher-match-value "Cannot match wildcard as a value")] (error 'matcher-match-value "Cannot match wildcard as a value")]
[(cons '() rest)
(match (get SOL)
[#f (walk rest stack (get ?))]
[k (walk '() (cons rest stack) k)])]
[(cons (cons v1 v2) rest) [(cons (cons v1 v2) rest)
(match (get SOL) (match (get SOL)
[#f (walk rest stack (get ?))] [#f (walk rest stack (get ?))]