From e1a6b3bf458f311d832aea7eec34935d42f8efed Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Sun, 17 Dec 2017 22:22:50 -0800 Subject: altos/scheme: Use memory manager mark code to note recursive print This flags any object being printed and checks before recursing to avoid infinite loops. Signed-off-by: Keith Packard --- src/scheme/ao_scheme_frame.c | 1 - 1 file changed, 1 deletion(-) (limited to 'src/scheme/ao_scheme_frame.c') diff --git a/src/scheme/ao_scheme_frame.c b/src/scheme/ao_scheme_frame.c index 7f521863..3f4c9157 100644 --- a/src/scheme/ao_scheme_frame.c +++ b/src/scheme/ao_scheme_frame.c @@ -41,7 +41,6 @@ frame_vals_mark(void *addr) ao_scheme_poly_atom(v->atom)->name, MDBG_OFFSET(ao_scheme_ref(v->atom)), MDBG_OFFSET(ao_scheme_ref(v->val)), f); - MDBG_DO(ao_scheme_poly_write(v->val)); MDBG_DO(printf("\n")); } } -- cgit v1.2.3