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.

1 files changed, 1 insertions, 0 deletions

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;