From add5fff586ed401bb3d2c571f173dff76b77170b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 26 Dec 2007 12:41:51 +0000
Subject: [PATCH] fix .zo writing of 1073741824 on 64-bit machine

svn: r8127
---
 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 f9bfc9496c..36e1db15a4 100644
--- a/src/mzscheme/src/print.c
+++ b/src/mzscheme/src/print.c
@@ -1718,7 +1718,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
 	  print_this_string(pp, (char *)s, 0, 1);
 	} else {
           /* Make sure it's a fixnum on all platforms... */
-          if ((v >= -1073741824) && (v <= 1073741824)) {
+          if ((v >= -1073741824) && (v <= 1073741823)) {
             print_compact(pp, CPT_INT);
             print_compact_number(pp, v);
           } else {