steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.vectors.simd: fix functor.

modern-harvey2
Doug Coleman 2018-01-27 12:01:09 -06:00
parent 5ef60f2f21
commit 144da45241
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/math/vectors/simd/simd.factor
View File

@ -328,12 +328,12 @@ DEFER: ${type}-boa
<<
\ ${type}-boa
[ $[ ${type}-coercer ] $[ ${type}-rep rep-length ] napply ] ${type}-rep rep-length {
[ $[ ${type}-coercer ] $[ ${type}-rep rep-length ] napply ] $[ ${type}-rep rep-length ] {
{ 2 [ [ ${type}-rep (simd-gather-2) ${type} boa ] ] }
{ 4 [ [ ${type}-rep (simd-gather-4) ${type} boa ] ] }
[ \ ${type} new '[ _ _ nsequence ] ]
} case compose
${type}-rep rep-length "n" <array> { "v" } <effect> define-inline
$[ $[ ${type}-rep rep-length ] "n" <array> { "v" } <effect> ] define-inline
>>
M: ${type} pprint-delims drop \ ${type}{ \ } ;