From fbcedd74510b02a8a56acfbb3fb115394fcbdfd8 Mon Sep 17 00:00:00 2001
From: Taylan Kammer <taylan.kammer@gmail.com>
Date: Sun, 2 Mar 2025 22:13:31 +0100
Subject: use mem pool for cons

---
 src/libzisp/value/pair.zig | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/libzisp/value')

diff --git a/src/libzisp/value/pair.zig b/src/libzisp/value/pair.zig
index 1c34096..87e18e7 100644
--- a/src/libzisp/value/pair.zig
+++ b/src/libzisp/value/pair.zig
@@ -26,10 +26,7 @@ pub fn pred(v: Value) Value {
 }
 
 pub fn cons(v1: Value, v2: Value) Value {
-    const mem = gc.alloc(2);
-    mem[0] = .{ .value = v1 };
-    mem[1] = .{ .value = v2 };
-    return ptr.pack(mem.ptr, .pair);
+    return ptr.pack(@ptrCast(gc.cons(v1, v2)), .pair);
 }
 
 fn getMem(v: Value) *[2]Value {
-- 
cgit v1.2.3