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

fix syntax printing to avoid nul char

Browse Source 
svn: r16014
This commit is contained in:
Matthew Flatt 2009-09-14 22:53:07 +00:00
parent f6b9265f77
commit 762b4e4266
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/mzscheme/src/print.c
View File

@ -2362,7 +2362,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
sprintf(quick_buffer, ":%ld", stx->srcloc->pos);
print_utf8_string(pp, quick_buffer, 0, -1);
} else
print_utf8_string(pp, "#<syntax", 0, 9);
print_utf8_string(pp, "#<syntax", 0, 8);
if (pp->print_syntax) {
long slen;
char *str;