From 60d216290d732413ddc8aebb5ed328a5e9d0aeb3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 30 Sep 2010 20:19:15 -0600 Subject: [PATCH] fix printer (and therefore decompiler) for proxy-prop:application-mark --- src/racket/src/print.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/racket/src/print.c b/src/racket/src/print.c index d0da5de4f9..67bb769223 100644 --- a/src/racket/src/print.c +++ b/src/racket/src/print.c @@ -1808,7 +1808,8 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht, || SCHEME_EOFP(obj) || SAME_TYPE(scheme_always_evt_type, SCHEME_TYPE(obj)) || SAME_TYPE(scheme_never_evt_type, SCHEME_TYPE(obj)) - || SAME_TYPE(scheme_struct_property_type, SCHEME_TYPE(obj)))) { + || SAME_TYPE(scheme_struct_property_type, SCHEME_TYPE(obj)) + || SAME_OBJ(scheme_app_mark_proxy_property, obj))) { /* Check whether this is a global constant */ Scheme_Object *val; val = scheme_hash_get(global_constants_ht, obj);