From 431165e5fa72ba6dffd477de32960745cdec332c Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Tue, 19 Dec 2017 11:33:36 -0800
Subject: altos/scheme: Rework display/write code
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Unify output functions and add bool to switch between write and
display mode. Make that only affect strings (as per r⁷rs).

Use print recursion detection in frame and stack code, eliminating
PRINT flags in type field.

Signed-off-by: Keith Packard <keithp@keithp.com>
---
 src/scheme/ao_scheme_rep.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/scheme/ao_scheme_rep.c')

diff --git a/src/scheme/ao_scheme_rep.c b/src/scheme/ao_scheme_rep.c
index 5b94d940..b35ba5b8 100644
--- a/src/scheme/ao_scheme_rep.c
+++ b/src/scheme/ao_scheme_rep.c
@@ -30,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');
 		}
 	}
-- 
cgit v1.2.3