preserve sequence type in math.matrices:cross

2009-07-07 16:26:50 -05:00 · 2009-07-07 16:26:50 -05:00 · 809b40d497
parent 4763ee9a4d
commit 809b40d497
1 changed files with 1 additions and 1 deletions
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@ -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 ;