using integer>fixnum in more places.

diff --git a/core/byte-arrays/byte-arrays.factor b/core/byte-arrays/byte-arrays.factor
index 3c89a5f63e777dc9a28854fa9ee0b761e151d68c..f9c62800912d9ef68528a92bfac71bbf4a45c341 100644 (file)
--- a/core/byte-arrays/byte-arrays.factor
+++ b/core/byte-arrays/byte-arrays.factor
@@ -6,8 +6,8 @@ IN: byte-arrays
 
 M: byte-array clone (clone) ; inline
 M: byte-array length length>> ; inline
-M: byte-array nth-unsafe swap >fixnum alien-unsigned-1 ; inline
-M: byte-array set-nth-unsafe swap >fixnum set-alien-unsigned-1 ; inline
+M: byte-array nth-unsafe swap integer>fixnum alien-unsigned-1 ; inline
+M: byte-array set-nth-unsafe swap integer>fixnum set-alien-unsigned-1 ; inline
 : >byte-array ( seq -- byte-array ) B{ } clone-like ; inline
 M: byte-array new-sequence drop (byte-array) ; inline
 

diff --git a/core/sbufs/sbufs.factor b/core/sbufs/sbufs.factor
index db2649142d7b408203d7d3dad35ee1e20aecd10a..13af7c65cbaac971a98c1b490c78231e28d801da 100644 (file)
--- a/core/sbufs/sbufs.factor
+++ b/core/sbufs/sbufs.factor
@@ -11,10 +11,11 @@ TUPLE: sbuf
 : <sbuf> ( n -- sbuf ) 0 <string> 0 sbuf boa ; inline
 
 M: sbuf set-nth-unsafe
-    [ >fixnum ] [ >fixnum ] [ underlying>> ] tri* set-string-nth ; inline
+    [ integer>fixnum ] [ integer>fixnum ] [ underlying>> ] tri*
+    set-string-nth ; inline
 
 M: sbuf new-sequence
-    drop [ 0 <string> ] [ >fixnum ] bi sbuf boa ; inline
+    drop [ 0 <string> ] [ integer>fixnum ] bi sbuf boa ; inline
 
 : >sbuf ( seq -- sbuf ) SBUF" " clone-like ; inline