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:
Emery Hemingway 2024-05-30 19:14:17 +03:00
parent 6a7646ff54
commit 1bf29bdf02
1 changed files with 1 additions and 1 deletions

View File

@ -8,7 +8,7 @@ proc parsePattern(pr: Value): Pattern =
let
dropSigil = initRecord("lit", "_".toSymbol)
grabSigil = initRecord("lit", "?".toSymbol)
var pr = grab(pr).toPreserves
var pr = drop(pr).toPreserves
apply(pr) do (pr: var Value):
if pr == dropSigil:
pr = initRecord("_")