From fd85bcaf21413175f812de8a4be2aa50ad3a61d9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 2 Jul 2016 08:45:39 -0600 Subject: [PATCH] fix printing of `eq[v]?`-based hash tables Merge to v6.6 --- racket/src/racket/src/print.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/racket/src/racket/src/print.c b/racket/src/racket/src/print.c index 12ce78abba..f1ebf18ef0 100644 --- a/racket/src/racket/src/print.c +++ b/racket/src/racket/src/print.c @@ -2380,7 +2380,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht, } else { notdisplay = to_quoted(obj, pp, notdisplay); if (notdisplay == 3) - print_utf8_string(pp, "(hash ", 0, 6); + print_utf8_string(pp, "(hash", 0, 5); else print_utf8_string(pp, "#hash", 0, 5); if (SCHEME_HASHTP(obj)) { @@ -2398,6 +2398,8 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht, print_utf8_string(pp, "eq", 0, 2); } } + if (notdisplay == 3) + print_utf8_string(pp, " ", 0, 1); if (notdisplay != 3) print_utf8_string(pp, "(", 0, 1); }