From bc9568d6bd6a4981e5cc78d30acbaeb676e2c344 Mon Sep 17 00:00:00 2001
From: Emery Hemingway <ehmry@posteo.net>
Date: Mon, 25 Oct 2021 01:53:12 +0200
Subject: [PATCH] Add unembed routine

---
 src/preserves.nim | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/preserves.nim b/src/preserves.nim
index e3b74d7..a4f8b4c 100644
--- a/src/preserves.nim
+++ b/src/preserves.nim
@@ -382,6 +382,12 @@ iterator fields*(pr: Preserve): Preserve =
   ## Iterate the fields of a record value.
   for i in 0..<pr.record.high: yield pr.record[i]
 
+proc unembed*[E](pr: Preserve[E]): E =
+  ## Unembed an `E` value from a `Preserve[E]` value.
+  if pr.kind != pkEmbedded:
+    raise newException(ValueError, "not an embedded value")
+  pr.embed
+
 proc writeVarint(s: Stream; n: int) =
   var n = n
   while true: