From 5c94083e0b107ed3a923fcb2e7b5763e7bf4f972 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 8 Jan 2007 05:14:30 +0000
Subject: [PATCH] fix random output in marshalled bytecode

svn: r5256
---
 src/mzscheme/src/print.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/print.c b/src/mzscheme/src/print.c
index 9d8332f448..c3bbd01861 100644
--- a/src/mzscheme/src/print.c
+++ b/src/mzscheme/src/print.c
@@ -2525,7 +2525,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
 	print_number(pp, mt->st_refs->count + 1);
 
         /* Print shared-value offsets: */
-        {
+        if (mt->st_refs->count) {
           int all_short = shared_offsets[mt->st_refs->count-1] < 0xFFFF;
           print_one_byte(pp, all_short);
           for (j = 0; j < mt->st_refs->count; j++) {
@@ -2534,6 +2534,8 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
             else
               print_number(pp, shared_offsets[j]);
           }
+        } else {
+          print_one_byte(pp, 1);
         }
         
 	print_number(pp, st_len);