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

places: fix printing of symbol resolved module paths

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-14 21:20:17 -06:00
parent 1c4722eaee
commit 62acb298bd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2429,7 +2429,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
int is_sym;
if (notdisplay)
print_utf8_string(pp, "#<resolved-module-path:", 0, 23);
is_sym = SCHEME_SYMBOLP(SCHEME_PTR_VAL(obj));
is_sym = !SCHEME_PATHP(SCHEME_PTR_VAL(obj));
print_utf8_string(pp, (is_sym ? "'" : "\"") , 0, 1);
print(SCHEME_PTR_VAL(obj), 0, 0, ht, mt, pp);
PRINTADDRESS(pp, obj);