#include <stdint.h>
#include <string.h>
-//#include <stdio.h>
#include <ao_lisp_os.h>
typedef uint16_t ao_poly;
#define _ao_lisp_atom_save _atom("save")
#define _ao_lisp_atom_restore _atom("restore")
#define _ao_lisp_atom_call2fcc _atom("call/cc")
+#define _ao_lisp_atom_collect _atom("collect")
#else
#include "ao_lisp_const.h"
#ifndef AO_LISP_POOL
builtin_save,
builtin_restore,
builtin_call_cc,
+ builtin_collect,
_builtin_last
};
#define DBG_CONS(a) ao_lisp_cons_print(ao_lisp_cons_poly(a))
#define DBG_POLY(a) ao_lisp_poly_print(a)
#define OFFSET(a) ((a) ? (int) ((uint8_t *) a - ao_lisp_pool) : -1)
-#define DBG_STACK() ao_lisp_stack_print()
+#define DBG_STACK() ao_lisp_stack_print(ao_lisp_stack_poly(ao_lisp_stack))
static inline void
ao_lisp_frames_dump(void)
{