specialized-arrays: fix typo

diff --git a/basis/specialized-arrays/specialized-arrays.factor b/basis/specialized-arrays/specialized-arrays.factor
index 34854597e167cc473876b2a1e2ab2f1337c23f94..0e0b03c87092b271246cd38f92fe8ec875f2e6fa 100644 (file)
--- a/basis/specialized-arrays/specialized-arrays.factor
+++ b/basis/specialized-arrays/specialized-arrays.factor
@@ -67,7 +67,7 @@ TUPLE: A
 
 : A-cast ( byte-array -- specialized-array )
     binary-object \ T heap-size /mod 0 =
-    [ <direct-A> ] [ drop \ T bad-byte-array-length ] bi ; inline
+    [ <direct-A> ] [ drop \ T bad-byte-array-length ] if ; inline
 
 M: A clone [ underlying>> clone ] [ length>> ] bi <direct-A> ; inline