From 5ef60f2f21731c6609304305fa08d2589be3181b Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 2 Jan 2018 23:13:42 -0800 Subject: [PATCH] math.vectors.simd: better implementation. --- basis/math/vectors/simd/simd.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/math/vectors/simd/simd.factor b/basis/math/vectors/simd/simd.factor index cb07b5da8e..0408f1e76d 100644 --- a/basis/math/vectors/simd/simd.factor +++ b/basis/math/vectors/simd/simd.factor @@ -304,7 +304,7 @@ c:: << : ${type}-coercer ( -- m ) ${type}-rep rep-component-type c::c-type-class "coercer" word-prop [ ] or ; inline >> -: ${type}-with ( n -- v ) ${type}-coercer call( a -- b ) \ ${type}-rep (simd-with) \ ${type} boa ; inline +: ${type}-with ( n -- v ) $[ ${type}-coercer ] call \ ${type}-rep (simd-with) \ ${type} boa ; inline : ${type}-cast ( v -- v' ) underlying>> \ ${type} boa ; inline : >${type} ( seq -- simd ) \ ${type} new clone-like ; inline SYNTAX: ${type}{ \ } [ >${type} ] parse-literal ; @@ -322,7 +322,7 @@ M: ${type} set-nth-unsafe M: ${type} like drop dup \ ${type} instance? [ >${type} ] unless ; inline -M: ${type} length drop ${type}-rep rep-length ; inline +M: ${type} length drop $[ ${type}-rep rep-length ] ; inline DEFER: ${type}-boa