suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix printing of eq[v]?-based hash tables

Browse Source 
Merge to v6.6
This commit is contained in:
Matthew Flatt 2016-07-02 08:45:39 -06:00
parent e10c57623c
commit fd85bcaf21
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/src/print.c
View File

@ -2380,7 +2380,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
} else { } else {
notdisplay = to_quoted(obj, pp, notdisplay); notdisplay = to_quoted(obj, pp, notdisplay);
if (notdisplay == 3) if (notdisplay == 3)
print_utf8_string(pp, "(hash ", 0, 6); print_utf8_string(pp, "(hash", 0, 5);
else else
print_utf8_string(pp, "#hash", 0, 5); print_utf8_string(pp, "#hash", 0, 5);
if (SCHEME_HASHTP(obj)) { 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); print_utf8_string(pp, "eq", 0, 2);
} }
} }
if (notdisplay == 3)
print_utf8_string(pp, " ", 0, 1);
if (notdisplay != 3) if (notdisplay != 3)
print_utf8_string(pp, "(", 0, 1); print_utf8_string(pp, "(", 0, 1);
} }