altos/lisp: convert GC to non-recursive

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

diff --git a/src/lisp/ao_lisp_atom.c b/src/lisp/ao_lisp_atom.c
index 5f1bcda02ac372b0bff2ba72c91d1bd9b7177de6..41ba97f5d7f5b674948d9da00324cdb0d97f5f10 100644 (file)
--- a/src/lisp/ao_lisp_atom.c
+++ b/src/lisp/ao_lisp_atom.c
@@ -48,7 +48,7 @@ static void atom_move(void *addr)
        struct ao_lisp_atom     *atom = addr;
 
        for (;;) {
-               if (ao_lisp_poly_move(&atom->next))
+               if (ao_lisp_poly_move(&atom->next, 0))
                        break;
                atom = ao_lisp_poly_atom(atom->next);
        }