From 3987b83f599c83a554a9eede2073991651fba7a2 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 29 Jun 2024 17:11:06 -0700
Subject: lib: rcyc_cons set type to CONS.

* lib.c (rcyc_cons): Reset type of recycled cons to CONS,
in case the object is a LCONS.
---
 lib.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib.c b/lib.c
index db7b38ed..445fa6b8 100644
--- a/lib.c
+++ b/lib.c
@@ -4996,6 +4996,7 @@ val lcons_cdr(val lcons)
 
 void rcyc_cons(val cons)
 {
+  cons->c.type = CONS;
   cons->c.cdr = recycled_conses;
   cons->c.car = nil;
   recycled_conses = cons;
-- 
cgit v1.2.3