1 files changed, 6 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 4365c4b8..2b5bd031 100644
--- a/lib.c
+++ b/lib.c
@@ -426,6 +426,12 @@ val pop(val *plist)
   return ret;
 }
 
+val upop(val *plist, val *pundo)
+{
+  *pundo = *plist;
+  return pop(plist);
+}
+
 val push(val value, val *plist)
 {
   /* Unsafe for mutating object fields: use mpush macro. */