syndump: fix double pattern binding
This happened because the semantics of bind(Value) changed from a drop to a bind.
This commit is contained in:
parent
6a7646ff54
commit
1bf29bdf02
|
@ -8,7 +8,7 @@ proc parsePattern(pr: Value): Pattern =
|
||||||
let
|
let
|
||||||
dropSigil = initRecord("lit", "_".toSymbol)
|
dropSigil = initRecord("lit", "_".toSymbol)
|
||||||
grabSigil = initRecord("lit", "?".toSymbol)
|
grabSigil = initRecord("lit", "?".toSymbol)
|
||||||
var pr = grab(pr).toPreserves
|
var pr = drop(pr).toPreserves
|
||||||
apply(pr) do (pr: var Value):
|
apply(pr) do (pr: var Value):
|
||||||
if pr == dropSigil:
|
if pr == dropSigil:
|
||||||
pr = initRecord("_")
|
pr = initRecord("_")
|
||||||
|
|
Loading…
Reference in New Issue