math.quaternions: use 2bi in q*

2008-07-04 11:19:42 -05:00 · 2008-07-04 11:19:42 -05:00 · 22fdbf53f6
parent 1fa98e2121
commit 22fdbf53f6
1 changed files with 1 additions and 1 deletions
--- a/extra/math/quaternions/quaternions.factor
+++ b/extra/math/quaternions/quaternions.factor
@ -24,7 +24,7 @@ PRIVATE>

 : q* ( u v -- u*v )
    #! Multiply quaternions.
-    [ q*a ] 2keep q*b 2array ;
+    [ q*a ] [ q*b ] 2bi 2array ;

 : qconjugate ( u -- u' )
    #! Quaternion conjugate.