diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-18 22:52:10 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-02-20 11:16:52 -0800 |
| commit | 1b1bc92e6781c563e3d3b117b9cda2dddccc44de (patch) | |
| tree | 54e654923d807a8f9cf7ddca61d31916802f1cb6 /src/lisp/ao_lisp.h | |
| parent | c3a4d7721f0f5d082336b8cc9c9d765ad2f7d17e (diff) | |
altos/lisp: Add builtin 'collect'
Collect memory, return amount free.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp.h')
| -rw-r--r-- | src/lisp/ao_lisp.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h index 1f7c85e1..1a8e7e91 100644 --- a/src/lisp/ao_lisp.h +++ b/src/lisp/ao_lisp.h @@ -79,6 +79,7 @@ extern uint8_t ao_lisp_const[AO_LISP_POOL_CONST]; #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 @@ -291,6 +292,7 @@ enum ao_lisp_builtin_id { builtin_save, builtin_restore, builtin_call_cc, + builtin_collect, _builtin_last }; |