Specialized array overhaul

[factor.git] / extra / half-floats / half-floats.factor

diff --git a/extra/half-floats/half-floats.factor b/extra/half-floats/half-floats.factor
index d54c7af55fd0b26de8b3a154da5292a4383ed0f6..2c089e4330308d3496ede384de6bef67b6131660 100755 (executable)
--- a/extra/half-floats/half-floats.factor
+++ b/extra/half-floats/half-floats.factor
@@ -1,6 +1,5 @@
 ! (c)2009 Joe Groff bsd license
-USING: accessors alien.c-types alien.syntax kernel math math.order
-specialized-arrays.functor ;
+USING: accessors alien.c-types alien.syntax kernel math math.order ;
 IN: half-floats
 
 : half>bits ( float -- bits )
@@ -36,6 +35,4 @@ C-STRUCT: half { "ushort" "(bits)" } ;
     [ *ushort bits>half ] >>boxer-quot
     drop
 
-"half" define-array
-
 >>