From 01736e9bec6ea0ae616696742b55b256d403557c Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Thu, 1 Oct 2009 23:46:37 -0500 Subject: [PATCH] define simd equal? methods as v= vall? --- basis/math/vectors/simd/functor/functor.factor | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/basis/math/vectors/simd/functor/functor.factor b/basis/math/vectors/simd/functor/functor.factor index fa1f208188..878d4aea70 100644 --- a/basis/math/vectors/simd/functor/functor.factor +++ b/basis/math/vectors/simd/functor/functor.factor @@ -186,6 +186,9 @@ M: A clone underlying>> clone \ A boa ; inline M: A length drop N ; inline +M: A equal? + over \ A instance? [ v= vall? ] [ 2drop f ] if ; + M: A nth-unsafe underlying>> A-rep simd-nth ; inline M: A set-nth-unsafe @@ -204,8 +207,6 @@ M: A new-sequence [ N bad-length ] if ; inline -M: A equal? over \ A instance? [ sequence= ] [ 2drop f ] if ; - M: A c:byte-length underlying>> length ; inline M: A element-type drop A-rep rep-component-type ; @@ -340,6 +341,9 @@ M: A clone M: A length drop N ; inline +M: A equal? + over \ A instance? [ v= vall? ] [ 2drop f ] if ; + : A-deref ( n seq -- n' seq' ) over N/2 < [ underlying1>> ] [ [ N/2 - ] dip underlying2>> ] if \ A/2 boa ; inline @@ -357,8 +361,6 @@ M: A new-sequence [ N bad-length ] if ; inline -M: A equal? over \ A instance? [ sequence= ] [ 2drop f ] if ; - M: A c:byte-length drop 32 ; inline M: A element-type drop A-rep rep-component-type ;