printf("\t\t ");
else
first = 0;
- ao_lisp_poly_print(cons->car);
+ ao_lisp_poly_write(cons->car);
printf("\n");
if (poly == last)
break;
} else
printf(")\n");
} else {
- ao_lisp_poly_print(poly);
+ ao_lisp_poly_write(poly);
printf("\n");
}
}
tabs(indent);
printf ("%s{", name);
if (frame) {
+ struct ao_lisp_frame_vals *vals = ao_lisp_poly_frame_vals(frame->vals);
if (frame->type & AO_LISP_FRAME_PRINT)
printf("recurse...");
else {
tabs(indent);
printf(" ");
}
- ao_lisp_poly_print(frame->vals[f].atom);
+ ao_lisp_poly_write(vals->vals[f].atom);
printf(" = ");
- ao_lisp_poly_print(frame->vals[f].val);
+ ao_lisp_poly_write(vals->vals[f].val);
printf("\n");
}
if (frame->prev)
vprintf(format, args);
va_end(args);
printf("\n");
- printf("Value: "); ao_lisp_poly_print(ao_lisp_v); printf("\n");
+ printf("Value: "); ao_lisp_poly_write(ao_lisp_v); printf("\n");
printf("Stack:\n");
- ao_lisp_stack_print(ao_lisp_stack_poly(ao_lisp_stack));
+ ao_lisp_stack_write(ao_lisp_stack_poly(ao_lisp_stack));
printf("Globals:\n\t");
- ao_lisp_frame_print(ao_lisp_frame_poly(ao_lisp_frame_global));
+ ao_lisp_frame_write(ao_lisp_frame_poly(ao_lisp_frame_global));
printf("\n");
return AO_LISP_NIL;
}