altos/lisp: Switch to scheme formal syntax for varargs

[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 f3ea6be065151f723f7ef1bf6aa090033e5eb0b1..6e4b411ee351c9882d1b02b9dbf10ad01ad46757 100644 (file)
--- a/src/lisp/ao_lisp_make_const.c
+++ b/src/lisp/ao_lisp_make_const.c
@@ -191,6 +191,7 @@ ao_has_macro(ao_poly p)
        struct ao_lisp_cons     *cons;
        struct ao_lisp_lambda   *lambda;
        ao_poly                 m;
+       ao_poly                 list;
 
        if (p == AO_LISP_NIL)
                return AO_LISP_NIL;
@@ -206,15 +207,16 @@ ao_has_macro(ao_poly p)
                if ((p = ao_is_macro(cons->car)))
                        break;
 
-               cons = ao_lisp_poly_cons(cons->cdr);
+               list = cons->cdr;
                p = AO_LISP_NIL;
-               while (cons) {
+               while (list != AO_LISP_NIL && ao_lisp_poly_type(list) == AO_LISP_CONS) {
+                       cons = ao_lisp_poly_cons(list);
                        m = ao_has_macro(cons->car);
                        if (m) {
                                p = m;
                                break;
                        }
-                       cons = ao_lisp_poly_cons(cons->cdr);
+                       list = cons->cdr;
                }
                break;