Fix compiler crash on SVM with constant that doesn't fit in 32-bit signed.
authorChris Hanson <org/chris-hanson/cph>
Fri, 27 Jan 2017 21:51:10 +0000 (13:51 -0800)
committerChris Hanson <org/chris-hanson/cph>
Fri, 27 Jan 2017 21:51:10 +0000 (13:51 -0800)
src/runtime/bytevector.scm

index 6d3bbf2a384fadef281268d48c72e80b78ad5d1a..9e08530da4ba5e07c06c6fb91f2db7ba20c6f938 100644 (file)
@@ -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))