ao_scheme_read_eval_print(void)
{
ao_poly in, out = AO_SCHEME_NIL;
+
+ ao_scheme_exception = 0;
for(;;) {
in = ao_scheme_read();
if (in == _ao_scheme_atom_eof)
break;
ao_scheme_exception = 0;
} else {
- ao_scheme_poly_write(out);
+ ao_scheme_poly_write(out, true);
putchar ('\n');
}
}