specialized-arrays: fix clone method

diff --git a/basis/specialized-arrays/functor/functor.factor b/basis/specialized-arrays/functor/functor.factor
index df1c938d03cffa6f58cccfc8cb5fe051b6ec825b..aaec309523c6a6749e49ff7c7292f11103cdf2b2 100644 (file)
--- a/basis/specialized-arrays/functor/functor.factor
+++ b/basis/specialized-arrays/functor/functor.factor
@@ -81,7 +81,7 @@ SYNTAX: A{ \ } [ >A ] parse-literal ;
 INSTANCE: A sequence
 INSTANCE: A S
 
-A T c-type-boxed-class specialize-vector-words
+A T c-type-boxed-class f specialize-vector-words
 
 T c-type
     \ A >>array-class

diff --git a/basis/specialized-arrays/specialized-arrays-tests.factor b/basis/specialized-arrays/specialized-arrays-tests.factor
index 1e470b699a00b21bd78b37358cb6eb500e0446d1..c983f29c71a6dc0e24af273f8f70a00714a4aab4 100644 (file)
--- a/basis/specialized-arrays/specialized-arrays-tests.factor
+++ b/basis/specialized-arrays/specialized-arrays-tests.factor
@@ -3,7 +3,8 @@ USING: tools.test specialized-arrays sequences
 specialized-arrays.int specialized-arrays.bool
 specialized-arrays.ushort alien.c-types accessors kernel
 specialized-arrays.direct.int specialized-arrays.char
-specialized-arrays.uint arrays combinators ;
+specialized-arrays.uint specialized-arrays.float
+arrays combinators compiler ;
 
 [ t ] [ { 1 2 3 } >int-array int-array? ] unit-test
 
@@ -27,4 +28,8 @@ specialized-arrays.uint arrays combinators ;
 
 [ { 3 1 3 3 7 } ] [
     int-array{ 3 1 3 3 7 } malloc-byte-array 5 <direct-int-array> >array
-] unit-test
\ No newline at end of file
+] unit-test
+
+[ f ] [ float-array{ 4 3 2 1 } dup clone [ underlying>> ] bi@ eq? ] unit-test
+
+[ f ] [ [ float-array{ 4 3 2 1 } dup clone [ underlying>> ] bi@ eq? ] compile-call ] unit-test
\ No newline at end of file