specialized-arrays: slightly faster nth-unsafe.

diff --git a/basis/specialized-arrays/specialized-arrays.factor b/basis/specialized-arrays/specialized-arrays.factor
index bd221cc6b017c5ff53d3fece35dad592ff9cc36a..88145dc90623bd99186d8ac90b566bca855cdd75 100644 (file)
--- a/basis/specialized-arrays/specialized-arrays.factor
+++ b/basis/specialized-arrays/specialized-arrays.factor
@@ -66,11 +66,11 @@ M: A clone [ underlying>> clone ] [ length>> ] bi <direct-A> ; inline
 
 M: A length length>> ; inline
 
-M: A nth-unsafe underlying>> \ T alien-element ; inline
+M: A nth-unsafe [ integer>fixnum ] dip underlying>> \ T alien-element ; inline
 
 M: A nth-c-ptr underlying>> \ T array-accessor drop swap <displaced-alien> ; inline
 
-M: A set-nth-unsafe underlying>> \ T set-alien-element ; inline
+M: A set-nth-unsafe [ integer>fixnum ] dip underlying>> \ T set-alien-element ; inline
 
 M: A like drop dup A instance? [ \ T >c-array ] unless ; inline