From 3572f7bc186de147a99df30550edf40bd636ee8a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 13 Jan 2010 23:31:34 +0000 Subject: [PATCH] fix problem in bytecode printer svn: r17641 --- src/mzscheme/src/print.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mzscheme/src/print.c b/src/mzscheme/src/print.c index 2579f998e2..ffc479a9f9 100644 --- a/src/mzscheme/src/print.c +++ b/src/mzscheme/src/print.c @@ -132,10 +132,10 @@ static Scheme_Object *writable_struct_subs(Scheme_Object *s, int for_write, Prin && SCHEME_STRUCTP(obj) \ && PRINTABLE_STRUCT(obj, pp), 0)) \ || (qk(SCHEME_STRUCTP(obj) && scheme_is_writable_struct(obj), 0)) \ + || (qk(pp->print_struct, 1) && SCHEME_STRUCTP(obj) && SCHEME_PREFABP(obj)) \ || (qk(pp->print_hash_table, 1) && (SCHEME_HASHTPx(obj) || SCHEME_HASHTRP(obj)))) #define ssQUICK(x, isbox) x #define ssQUICKp(x, isbox) (pp ? x : isbox) -#define ssALL(x, isbox) 1 #define ssALLp(x, isbox) isbox void scheme_init_print(Scheme_Env *env)