From: Keith Packard <keithp@keithp.com>
Date: Tue, 21 Feb 2017 01:32:09 +0000 (-0800)
Subject: altos/lisp: Not quite ready to start making it look like scheme yet
X-Git-Tag: 1.7~85
X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=commitdiff_plain;h=d1956000ba2e6260977aa669475d3ff725578b55;hp=9603d737e9ea58217ff2c2dd7c350c7a29fba980

altos/lisp: Not quite ready to start making it look like scheme yet

Lots more code to write before these symbols can be exposed.

Signed-off-by: Keith Packard <keithp@keithp.com>
---

diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c
index 006c32f9..902f60e2 100644
--- a/src/lisp/ao_lisp_builtin.c
+++ b/src/lisp/ao_lisp_builtin.c
@@ -88,11 +88,12 @@ 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,
+#if 0
 	[builtin_symbolp] = _ao_lisp_atom_symbolp,
 	[builtin_listp] = _ao_lisp_atom_listp,
 	[builtin_stringp] = _ao_lisp_atom_stringp,
 	[builtin_numberp] = _ao_lisp_atom_numberp,
-
+#endif
 };
 
 static char *