From 2eef476c721ed93b1acaaf1a77e20b5b7c73ed4f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 6 Feb 2011 04:58:02 +0000
Subject: cleanup special hyperbolic builtins

---
 src/interp/boot-pkg.lisp     | 11 -----------
 src/interp/g-opt.boot        |  8 ++++----
 src/interp/lisp-backend.boot | 18 ------------------
 3 files changed, 4 insertions(+), 33 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/boot-pkg.lisp b/src/interp/boot-pkg.lisp
index b7b1cd56..aa16ed6f 100644
--- a/src/interp/boot-pkg.lisp
+++ b/src/interp/boot-pkg.lisp
@@ -71,17 +71,6 @@
 
 ;; Contributed by Juergen Weiss from a suggestion by Arthur Norman.
 
-(defun sec (x) (/ 1 (cos x)))
-(defun csc (x) (/ 1 (sin x)))
-(defun acsc (x) (asin (/ 1 x)))
-(defun asec (x) (acos (/ 1 x)))
-(defun csch (x) (/ 1 (sinh x)))
-(defun coth (x) (* (cosh x) (csch x)))
-(defun sech (x) (/ 1 (cosh x)))
-(defun acsch (x) (asinh (/ 1 x)))
-(defun acoth (x) (atanh (/ 1 x)))
-(defun asech (x) (acosh (/ 1 x)))
-
 (defun cot (a)
   (if (or (> a 1000.0) (< a -1000.0))
     (/ (cos a) (sin a))
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index d99f8c6a..f29ef062 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -408,10 +408,10 @@ $VMsideEffectFreeOperators ==
     %feq %flt %fle %fgt %fge %fmul %fadd %fsub %fexp %fmin %fmax %float?
     %fpowi %fdiv %fneg %i2f %fminval %fmaxval %fbase %fprec %ftrunc
     %fsqrt %fpowf %flog %flog2 %flog10 %fmanexp
-    %fsin  %fcos  %ftan  %fcot  %fsec  %fcsc
-    %fasin %facos %fatan %facot %fasec %facsc
-    %fsinh  %fcosh  %ftanh  %fcsch  %fcoth  %fsech
-    %fasinh %facosh %fatanh %facsch %facoth %fasech
+    %fsin  %fcos  %ftan  %fcot  
+    %fasin %facos %fatan %facot 
+    %fsinh  %fcosh  %ftanh 
+    %fasinh %facosh %fatanh
     %val2z %z2val %zlit %zreal %zimag
     %zexp %zlog %zsin %zcos %ztan %zasin %zacos %zatan
     %zsinh %zcosh %ztanh %zasinh %zacosh %zatanh
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 8a9a01d2..646dab26 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -293,12 +293,6 @@ expandFasin ['%fasin,x] ==
 expandFacos ['%facos,x] ==
   ['C_-TO_-R,['ACOS,expandToVMForm x]]
 
-expandFasec ['%fasec,x] ==
-  ['C_-TO_-R,['ASEC,expandToVMForm x]]
-
-expandFacsc ['%facsc,x] ==
-  ['C_-TO_-R,['ACSC,expandToVMForm x]]
-
 expandFacosh ['%facosh,x] ==
   ['C_-TO_-R,['ACOSH,expandToVMForm x]]
 
@@ -308,9 +302,6 @@ expandFatanh ['%fatanh,x] ==
 expandFacoth ['%facoth,x] ==
   ['C_-TO_-R,['ACOTH,expandToVMForm x]]
 
-expandFasech ['%fasech,x] ==
-  ['C_-TO_-R,['ASECH,expandToVMForm x]]
-
 
 -- String operations
 
@@ -522,19 +513,12 @@ for x in [
     ['%fcos,   :'COS],
     ['%ftan,   :'TAN],
     ['%fcot,   :'COT],
-    ['%fsec,   :'SEC],
-    ['%fcsc,   :'CSC],
     ['%fatan,  :'ATAN],
     ['%facot,  :'ACOT],
     ['%fsinh,  :'SINH],
     ['%fcosh,  :'COSH],
     ['%ftanh,  :'TANH],
-    ['%fcsch,  :'CSCH],
-    ['%fcoth,  :'COTH],
-    ['%fsech,  :'SECH],
     ['%fasinh, :'ASINH],
-    ['%fasech, :'ASECH],
-    ['%facsch, :'ACSCH],
 
     -- complex number operations
     ['%zlit,     :'COMPLEX],
@@ -641,8 +625,6 @@ for x in [
    ['%flog10,  :function expandFlog10],
    ['%fasin,   :function expandFasin],
    ['%facos,   :function expandFacos],
-   ['%fasec,   :function expandFasec],
-   ['%facsc,   :function expandFacsc],
    ['%facosh,  :function expandFacosh],
    ['%fatanh,  :function expandFatanh],
    ['%facoth,  :function expandFacoth],
-- 
cgit v1.2.3