preserve sequence type in math.matrices:cross

db4
Joe Groff 2009-07-07 16:26:50 -05:00
parent 4763ee9a4d
commit 809b40d497
1 changed files with 1 additions and 1 deletions
basis/math/matrices

View File

@ -120,7 +120,7 @@ IN: math.matrices
PRIVATE>
: cross ( vec1 vec2 -- vec3 ) [ i ] [ j ] [ k ] 2tri 3array ;
: cross ( vec1 vec2 -- vec3 ) [ [ i ] [ j ] [ k ] 2tri ] keep 3sequence ;
: proj ( v u -- w )
[ [ v. ] [ norm-sq ] bi / ] keep n*v ;