From 08d3ca49897c85c71e7a66ce8902bbf04081c441 Mon Sep 17 00:00:00 2001
From: Preston Pan <preston@nullring.xyz>
Date: Wed, 10 Jan 2024 11:08:48 -0800
Subject: fix dip

---
 src/builtins.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/builtins.c')

diff --git a/src/builtins.c b/src/builtins.c
index f801028..31981c3 100644
--- a/src/builtins.c
+++ b/src/builtins.c
@@ -548,7 +548,7 @@ void dip(value_t *v) {
       eval(value_copy(v2->quote->items[i]));
     }
     value_free(array_pop(EVAL_STACK));
-    value_free(array_pop(EVAL_STACK));
+    array_pop(EVAL_STACK);
   } else {
     eval(v1);
   }
-- 
cgit