Remove redundant and wrong clause in match-values
This commit is contained in:
parent
4c031254f7
commit
a86a0cd326
|
@ -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 ?))]
|
||||||
|
|
Loading…
Reference in New Issue