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 ?)))])]
|
||||
[(cons (== ?) rest)
|
||||
(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)
|
||||
(match (get SOL)
|
||||
[#f (walk rest stack (get ?))]
|
||||
|
|
Loading…
Reference in New Issue