Migrating to something more like scheme
Signed-off-by: Keith Packard <keithp@keithp.com>
#define _ao_lisp_atom_restore _atom("restore")
#define _ao_lisp_atom_call2fcc _atom("call/cc")
#define _ao_lisp_atom_collect _atom("collect")
#define _ao_lisp_atom_restore _atom("restore")
#define _ao_lisp_atom_call2fcc _atom("call/cc")
#define _ao_lisp_atom_collect _atom("collect")
+#define _ao_lisp_atom_symbolp _atom("symbol?")
+#define _ao_lisp_atom_builtin _atom("builtin?")
+#define _ao_lisp_atom_symbolp _atom("symbol?")
+#define _ao_lisp_atom_symbolp _atom("symbol?")
#else
#include "ao_lisp_const.h"
#ifndef AO_LISP_POOL
#else
#include "ao_lisp_const.h"
#ifndef AO_LISP_POOL
[builtin_restore] = _ao_lisp_atom_restore,
[builtin_call_cc] = _ao_lisp_atom_call2fcc,
[builtin_collect] = _ao_lisp_atom_collect,
[builtin_restore] = _ao_lisp_atom_restore,
[builtin_call_cc] = _ao_lisp_atom_call2fcc,
[builtin_collect] = _ao_lisp_atom_collect,
+ [builtin_symbolp] = _ao_lisp_atom_symbolp,
+ [builtin_listp] = _ao_lisp_atom_listp,
+ [builtin_stringp] = _ao_lisp_atom_stringp,
+ [builtin_numberp] = _ao_lisp_atom_numberp,