altos/lisp: convert GC to non-recursive

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

diff --git a/src/lisp/ao_lisp_string.c b/src/lisp/ao_lisp_string.c
index 39c3dc816ddd45dae08a6d6a83d3e876ec6bdd76..0064064cfe07cfc22730b7ac1f369b5240a23633 100644 (file)
--- a/src/lisp/ao_lisp_string.c
+++ b/src/lisp/ao_lisp_string.c
@@ -99,3 +99,13 @@ ao_lisp_string_print(ao_poly p)
        }
        putchar('"');
 }
+
+void
+ao_lisp_string_patom(ao_poly p)
+{
+       char    *s = ao_lisp_poly_string(p);
+       char    c;
+
+       while ((c = *s++))
+               putchar(c);
+}