altos/lisp: more GC issues. add patom

[fw/altos] / src / lisp / ao_lisp_make_const.c

diff --git a/src/lisp/ao_lisp_make_const.c b/src/lisp/ao_lisp_make_const.c
index 9768dc220c7710df07aa233feefa4290dd24348c..f2e3cea162f23baa84c5c10c9502d442b641d97a 100644 (file)
--- a/src/lisp/ao_lisp_make_const.c
+++ b/src/lisp/ao_lisp_make_const.c
@@ -41,6 +41,7 @@ struct builtin_func funcs[] = {
        "setq",         AO_LISP_MACRO,  builtin_setq,
        "cond",         AO_LISP_NLAMBDA,builtin_cond,
        "print",        AO_LISP_LEXPR,  builtin_print,
+       "patom",        AO_LISP_LEXPR,  builtin_patom,
        "+",            AO_LISP_LEXPR,  builtin_plus,
        "-",            AO_LISP_LEXPR,  builtin_minus,
        "*",            AO_LISP_LEXPR,  builtin_times,