fix .zo writing of 1073741824 on 64-bit machine

svn: r8127
This commit is contained in:
Matthew Flatt 2007-12-26 12:41:51 +00:00
parent 9f4f7670d1
commit add5fff586

View File

@ -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 {