From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jan 2017 21:51:10 +0000 (-0800)
Subject: Fix compiler crash on SVM with constant that doesn't fit in 32-bit signed.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~48
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d7f390f6e740ff8a13156a89d2b4d90bcf1d6d92;p=mit-scheme.git

Fix compiler crash on SVM with constant that doesn't fit in 32-bit signed.
---

diff --git a/src/runtime/bytevector.scm b/src/runtime/bytevector.scm
index 6d3bbf2a3..9e08530da 100644
--- a/src/runtime/bytevector.scm
+++ b/src/runtime/bytevector.scm
@@ -241,7 +241,7 @@ USA.
 
 (define (fix:u32? object)
   (and (index-fixnum? object)
-       (fix:<= object #xFFFFFFFF)))
+       (int:<= object #xFFFFFFFF)))
 
 (define-integrable (fix:bytes->u32le b0 b1 b2 b3)
   (fix:bytes->u32be b3 b2 b1 b0))