altos: Add lambda support to lisp

[fw/altos] / src / test / ao_lisp_test.c

diff --git a/src/test/ao_lisp_test.c b/src/test/ao_lisp_test.c
index e303869f411fb05e819f489096538e8b4b89b65e..8bc677daa5a54e947f4c86c69caa704e0f4f949d 100644 (file)
--- a/src/test/ao_lisp_test.c
+++ b/src/test/ao_lisp_test.c
@@ -15,15 +15,18 @@
 #include "ao_lisp.h"
 #include <stdio.h>
 
+#if 0
 static struct ao_lisp_cons     *list;
 static char                    *string;
+#endif
 
 int
 main (int argc, char **argv)
 {
+#if 0
        int                     i, j;
-       struct ao_lisp_atom     *atom;
 
+       struct ao_lisp_atom     *atom;
        ao_lisp_root_add(&ao_lisp_cons_type, (void **) &list);
        ao_lisp_root_add(&ao_lisp_string_type, (void **) &string);
 
@@ -47,7 +50,8 @@ main (int argc, char **argv)
                ao_lisp_poly_print(ao_lisp_atom_get(ao_lisp_atom_poly(atom)));
                printf("\n");
        }
-#if 1
+#endif
+#if 0
        list = ao_lisp_cons_cons(ao_lisp_atom_poly(ao_lisp_atom_intern("+")),
                                 ao_lisp_cons_cons(ao_lisp_cons_poly(ao_lisp_cons_cons(ao_lisp_atom_poly(ao_lisp_atom_intern("+")),
                                                                                       ao_lisp_cons_cons(ao_lisp_int_poly(3),
@@ -58,7 +62,8 @@ main (int argc, char **argv)
        printf ("\n");
        ao_lisp_poly_print(ao_lisp_eval(ao_lisp_cons_poly(list)));
        printf ("\n");
-
+#endif
+#if 1
        ao_lisp_read_eval_print();
 #endif
 }