diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-18 22:52:10 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2016-11-18 22:52:10 -0800 |
| commit | ac9638d1fcb7dc4de6daff44798c3f7c43b0e833 (patch) | |
| tree | ff75da733b5bb2cf41d904ab0c890a800db2f707 /src/lisp/ao_lisp.h | |
| parent | ee6ff123352c9184b239ff890a11d8bfa97c4ffc (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 }; |