math.vectors.simd.cords: use head-slice/tail-slice to slice up input sequences for >A op so that e.g. float-4{ ... } >double-4 works

db4
Joe Groff 2010-06-15 21:55:26 -07:00 committed by Doug Coleman
parent ec2b8da7c7
commit 6dc9e9f108
1 changed files with 2 additions and 2 deletions

View File

@ -28,8 +28,8 @@ BOA-EFFECT [ N 2 * "n" <array> { "v" } <effect> ]
WHERE
: >A ( seq -- A )
[ N head >A/2 ]
[ N tail >A/2 ] bi cord-append ;
[ N head-slice >A/2 ]
[ N tail-slice >A/2 ] bi cord-append ;
\ A-boa
{ N ndip A/2-boa cord-append } { A/2-boa } >quotation prefix >quotation