fix 3m problem with display of symbols

svn: r3786
2006-07-23 14:57:57 +00:00 · 2006-07-23 14:57:57 +00:00 · 4c1758866c
commit 4c1758866c
parent 2b57fdc1b2
1 changed files with 2 additions and 1 deletions
--- a/src/mzscheme/src/portfun.c
+++ b/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);