From 10297b66ce3afa504668c12dbd97f3889ec9cb6f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 3 Sep 2009 02:24:03 -0500 Subject: [PATCH] specialized-arrays: fix clone method --- basis/specialized-arrays/functor/functor.factor | 2 +- basis/specialized-arrays/specialized-arrays-tests.factor | 9 +++++++-- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/basis/specialized-arrays/functor/functor.factor b/basis/specialized-arrays/functor/functor.factor index df1c938d03..aaec309523 100644 --- 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 1e470b699a..c983f29c71 100644 --- 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 >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