Permalink
Browse files

fix 3m problem with display of symbols

svn: r3786
  • Loading branch information...
mflatt committed Jul 23, 2006
1 parent 2b57fdc commit 4c1758866cefcbcff7b3da7a24ec9d195e63fb16
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/mzscheme/src/portfun.c
@@ -3792,7 +3792,8 @@ display_write(char *name,
SCHEME_CHAR_STR_VAL(v), 0, SCHEME_CHAR_STRLEN_VAL(v));
} else if (SCHEME_SYMBOLP(v)) {
scheme_put_byte_string(name, port,
- SCHEME_SYM_VAL(v), 0, SCHEME_SYM_LEN(v),
+ (char *)v, ((char *)(SCHEME_SYM_VAL(v))) - ((char *)v),
+ SCHEME_SYM_LEN(v),
0);
} else
scheme_internal_display(v, port);

0 comments on commit 4c17588

Please sign in to comment.