From 25d42f94985cdb1063ffb0168cdfcf94439bb798 Mon Sep 17 00:00:00 2001
From: Emery Hemingway <ehmry@posteo.net>
Date: Fri, 29 Dec 2023 18:55:02 +0200
Subject: [PATCH] Add toRecord sugar

---
 src/preserves.nim          | 5 +++++
 tests/test_conversions.nim | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/src/preserves.nim b/src/preserves.nim
index 2c27d25..21ccf56 100644
--- a/src/preserves.nim
+++ b/src/preserves.nim
@@ -207,6 +207,11 @@ proc initRecord*(label: string; args: varargs[Value]): Value {.inline.} =
   ## Create a Preserves record value.
   initRecord(toSymbol(label), args)
 
+proc toRecord*(items: varargs[Value, toPreserves]): Value =
+  assert items.len > 0
+  result = initRecord(items[0], items.len.pred)
+  for i in 0..<items.high: result.record[i] = items[succ i]
+
 proc initSequence*(len: Natural = 0): Value =
   ## Create a Preserves sequence value.
   Value(kind: pkSequence, sequence: newSeq[Value](len))
diff --git a/tests/test_conversions.nim b/tests/test_conversions.nim
index 820a604..ba6c831 100644
--- a/tests/test_conversions.nim
+++ b/tests/test_conversions.nim
@@ -96,3 +96,7 @@ suite "toPreserve":
     test s: check($p == s)
   check false.toPreserves, "#f"
   check [0, 1, 2, 3].toPreserves, "[0 1 2 3]"
+
+  test "toRecord":
+    let r = toRecord(Symbol"foo", "üks", "kaks", "kolm", {4..7})
+    check $r == """<foo "üks" "kaks" "kolm" #{4 5 6 7}>"""