altos/lisp: Finish first pass through r7rs

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

diff --git a/src/lisp/ao_lisp_frame.c b/src/lisp/ao_lisp_frame.c
index 05f6d253ca23159fee0413c516e32cbbc9be0c8d..ebdb7757382f145ca798e2fc91d56b6386c3d1c9 100644 (file)
--- a/src/lisp/ao_lisp_frame.c
+++ b/src/lisp/ao_lisp_frame.c
@@ -102,7 +102,7 @@ const struct ao_lisp_type ao_lisp_frame_type = {
 };
 
 void
-ao_lisp_frame_print(ao_poly p)
+ao_lisp_frame_write(ao_poly p)
 {
        struct ao_lisp_frame    *frame = ao_lisp_poly_frame(p);
        int                     f;
@@ -116,12 +116,12 @@ ao_lisp_frame_print(ao_poly p)
                        for (f = 0; f < frame->num; f++) {
                                if (f != 0)
                                        printf(", ");
-                               ao_lisp_poly_print(frame->vals[f].atom);
+                               ao_lisp_poly_write(frame->vals[f].atom);
                                printf(" = ");
-                               ao_lisp_poly_print(frame->vals[f].val);
+                               ao_lisp_poly_write(frame->vals[f].val);
                        }
                        if (frame->prev)
-                               ao_lisp_poly_print(frame->prev);
+                               ao_lisp_poly_write(frame->prev);
                        frame->type &= ~AO_LISP_FRAME_PRINT;
                }
        }