Global generation

2026-01-18 03:11:17 -08:00
parent 94d5749d31
commit c0b18cda5a
16 changed files with 571 additions and 57 deletions
--- a/src/list.h
+++ b/src/list.h
@ -98,8 +98,12 @@ static ALWAYS_INLINE LispVal *LIST_N(int count, ...) {
 #define FOREACH_TAIL(l, v) for (LispVal *v = (l); !NILP(v); v = XCDR_SAFE(v))

 intptr_t list_length(LispVal *list);
+// Return true if the length of LIST == SIZE
+bool list_length_eq(LispVal *list, intptr_t size);

 DECLARE_FUNCTION(cons, (LispVal * car, LispVal *cdr));
 DECLARE_FUNCTION(length, (LispVal * list));
+DECLARE_FUNCTION(length_eq, (LispVal * list, LispVal *length));
+DECLARE_FUNCTION(nreverse, (LispVal * list));

 #endif