From 1bf29bdf022fe15ccd3aab9848c74a0012f8c0b7 Mon Sep 17 00:00:00 2001
From: Emery Hemingway <ehmry@posteo.net>
Date: Thu, 30 May 2024 19:14:17 +0300
Subject: [PATCH] syndump: fix double pattern binding

This happened because the semantics of bind(Value) changed from a
drop to a bind.
---
 src/syndump.nim | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/syndump.nim b/src/syndump.nim
index d2951c5..a33e3c4 100644
--- a/src/syndump.nim
+++ b/src/syndump.nim
@@ -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("_")