From 762b4e42664abf8a3c3e74c85885fee2f6ea9e99 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 14 Sep 2009 22:53:07 +0000
Subject: [PATCH] fix syntax printing to avoid nul char

svn: r16014
---
 src/mzscheme/src/print.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/print.c b/src/mzscheme/src/print.c
index 778bb691d8..0b9347abab 100644
--- a/src/mzscheme/src/print.c
+++ b/src/mzscheme/src/print.c
@@ -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;