From 79f19bfe95051fe0e0f35ad37d513b2a9a9c5361 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 4 Jul 2008 11:22:59 -0500
Subject: [PATCH] math.quaternions: use tri* in euler

---
 extra/math/quaternions/quaternions.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/math/quaternions/quaternions.factor b/extra/math/quaternions/quaternions.factor
index b7bfd92a1b..3c450f1c05 100755
--- a/extra/math/quaternions/quaternions.factor
+++ b/extra/math/quaternions/quaternions.factor
@@ -74,5 +74,4 @@ PRIVATE>
     >r -0.5 * dup cos c>q swap sin r> n*v v- ;
 
 : euler ( phi theta psi -- q )
-    qk (euler) >r qj (euler) >r qi (euler) r> q* r> q* ;
-
+  [ qi (euler) ] [ qj (euler) ] [ qk (euler) ] tri* q* q* ;