X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_rep.c;h=b35ba5b8da796a21b7f4b2722b52ca468d2f3708;hb=431165e5fa72ba6dffd477de32960745cdec332c;hp=9dbce5f2476d8bd57e7ba765b81f2e387fe1453d;hpb=195cbeec19a6a44f309a9040d727d37fe4e2ec97;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_rep.c b/src/scheme/ao_scheme_rep.c
index 9dbce5f2..b35ba5b8 100644
--- a/src/scheme/ao_scheme_rep.c
+++ b/src/scheme/ao_scheme_rep.c
@@ -18,6 +18,8 @@ ao_poly
 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)
@@ -28,7 +30,7 @@ ao_scheme_read_eval_print(void)
 				break;
 			ao_scheme_exception = 0;
 		} else {
-			ao_scheme_poly_write(out);
+			ao_scheme_poly_write(out, true);
 			putchar ('\n');
 		}
 	}