From 441bd253b0665d0faac42a7ad3d7f65e73a1b10b Mon Sep 17 00:00:00 2001
From: Emery Hemingway <ehmry@posteo.net>
Date: Tue, 26 Dec 2023 00:03:06 +0200
Subject: [PATCH] Schema: convert Ref alternates to NamedPatterns

---
 src/preserves/schemaparse.nim | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/preserves/schemaparse.nim b/src/preserves/schemaparse.nim
index 68b3312..798a603 100644
--- a/src/preserves/schemaparse.nim
+++ b/src/preserves/schemaparse.nim
@@ -123,7 +123,8 @@ const parser = peg("Schema", p: ParseState):
     pushStack n
 
   AltRef <- Ref:
-    var n = toPreserve @[toPreserve $0] & takeStackAt()
+    var r = popStack()
+    var n = toPreserve @[r[1].symbol.string.toPreserve, r]
     pushStack n
 
   AltLiteralPattern <-