diff options
| author | Keith Packard <keithp@keithp.com> | 2017-11-17 08:04:28 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-11-17 08:04:28 -0800 |
| commit | 5b6f4b5de89a2bb0d63442e2651cf8d2ee0f4b10 (patch) | |
| tree | b7a2a65c3a40df38d6cf18cb42284f2b78e5ee6e /src/lisp/ao_lisp.h | |
| parent | cd9152973f29f4e775569f5acbbe8fab2d93d170 (diff) | |
altos/lisp: Generate built-in lambda atoms for const creation
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp.h')
| -rw-r--r-- | src/lisp/ao_lisp.h | 32 |
1 files changed, 6 insertions, 26 deletions
diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h index 341996c0..77a94cf1 100644 --- a/src/lisp/ao_lisp.h +++ b/src/lisp/ao_lisp.h @@ -59,33 +59,13 @@ extern uint8_t ao_lisp_const[AO_LISP_POOL_CONST] __attribute__((aligned(4))); #define _ao_lisp_bool_true _bool(1) #define _ao_lisp_bool_false _bool(0) -#define _ao_lisp_atom_quote _atom(quote) -#define _ao_lisp_atom_set _atom(set) -#define _ao_lisp_atom_setq _atom(setq) -#define _ao_lisp_atom_car _atom(car) -#define _ao_lisp_atom_cdr _atom(cdr) -#define _ao_lisp_atom_cons _atom(cons) -#define _ao_lisp_atom_last _atom(last) -#define _ao_lisp_atom_length _atom(length) -#define _ao_lisp_atom_cond _atom(cond) -#define _ao_lisp_atom_else _atom(else) -#define _ao_lisp_atom_lambda _atom(lambda) -#define _ao_lisp_atom_led _atom(led) -#define _ao_lisp_atom_delay _atom(delay) -#define _ao_lisp_atom_pack _atom(pack) -#define _ao_lisp_atom_unpack _atom(unpack) -#define _ao_lisp_atom_flush _atom(flush) -#define _ao_lisp_atom_eval _atom(eval) -#define _ao_lisp_atom_read _atom(read) + #define _ao_lisp_atom_eof _atom(eof) -#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) -#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?) +#define _ao_lisp_atom_else _atom(else) + +#define AO_LISP_BUILTIN_ATOMS +#include "ao_lisp_builtin.h" + #else #include "ao_lisp_const.h" #ifndef AO_LISP_POOL |