Fix incorrect usage of /f

diff --git a/library/math/trig-hyp.factor b/library/math/trig-hyp.factor
index 44c0d4ef11329bcf3664aa36e04e9a663e9b56a9..3a0654e9c6283d9808c2cf9b09215e3fef4f5c99 100644 (file)
--- 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 b891c92113d34235f5e346b049f5b10b3625e367..f722eeca20b38c7a687093755ed6f57a6dea66c8 100644 (file)
--- 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