From ceb815dc8bc2f81c4b604d08646e41f91133c426 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 10 Nov 2006 23:16:56 +0000
Subject: [PATCH] Fix incorrect usage of /f

---
 library/math/trig-hyp.factor     | 8 ++++----
 library/test/math/complex.factor | 6 ++++++
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/library/math/trig-hyp.factor b/library/math/trig-hyp.factor
index 44c0d4ef11..3a0654e9c6 100644
--- a/library/math/trig-hyp.factor
+++ b/library/math/trig-hyp.factor
@@ -31,7 +31,7 @@ USING: kernel math math-internals ;
 
 : cosech ( x -- y ) sinh recip ; inline
 
-: tan ( x -- y ) dup sin swap cos /f ; inline
-: tanh ( x -- y ) dup sinh swap cosh /f ; inline
-: cot ( x -- y ) dup cos swap sin /f ; inline
-: coth ( x -- y ) dup cosh swap sinh /f ; inline
+: tan ( x -- y ) dup sin swap cos / ; inline
+: tanh ( x -- y ) dup sinh swap cosh / ; inline
+: cot ( x -- y ) dup cos swap sin / ; inline
+: coth ( x -- y ) dup cosh swap sinh / ; inline
diff --git a/library/test/math/complex.factor b/library/test/math/complex.factor
index b891c92113..f722eeca20 100644
--- a/library/test/math/complex.factor
+++ b/library/test/math/complex.factor
@@ -59,3 +59,9 @@ USE: test
 [ 1 0 ] [ 1 >polar ] unit-test
 [ 1 ] [ -1 >polar drop ] unit-test
 [ t ] [ -1 >polar nip 3.14 3.15 between? ] unit-test
+
+! I fucked something up
+[ ] [ C{ 1 4 } tanh drop ] unit-test
+[ ] [ C{ 1 4 } tan drop ] unit-test
+[ ] [ C{ 1 4 } coth drop ] unit-test
+[ ] [ C{ 1 4 } cot drop ] unit-test