altos/lisp: Start adding scheme symbols

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

diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c
index 7cd131f54d3984daf594486cb246678e784372b3..006c32f9d88cdd67c6406e8ec1ecc6b50cd53831 100644 (file)
--- a/src/lisp/ao_lisp_builtin.c
+++ b/src/lisp/ao_lisp_builtin.c
@@ -88,6 +88,10 @@ static const ao_poly builtin_names[] = {
        [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,
 
 };