From 748c868680683df1949f62aac274040ac5bf43da Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 30 Jul 2018 23:40:48 -0400
Subject: Now implementing math functionality in stdlib instead of the
 compiler.

---
 .../lang/translation/r/procedure/common.jvm.lux    | 28 ----------------------
 1 file changed, 28 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/r')

diff --git a/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
index eab139f33..c17eb6738 100644
--- a/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
@@ -329,33 +329,6 @@
           (install "clip" (trinary text//clip))
           )))
 
-## [[Math]]
-(def: (math//pow [subject param])
-  Binary
-  (|> subject (r.** param)))
-
-(def: (math-func name)
-  (-> Text (-> Expression Expression))
-  (function (_ input)
-    (r.apply (list input) (r.global name))))
-
-(def: math-procs
-  Bundle
-  (<| (prefix "math")
-      (|> (dict.new text.Hash<Text>)
-          (install "cos" (unary (math-func "cos")))
-          (install "sin" (unary (math-func "sin")))
-          (install "tan" (unary (math-func "tan")))
-          (install "acos" (unary (math-func "acos")))
-          (install "asin" (unary (math-func "asin")))
-          (install "atan" (unary (math-func "atan")))
-          (install "exp" (unary (math-func "exp")))
-          (install "log" (unary (math-func "log")))
-          (install "ceil" (unary (math-func "ceiling")))
-          (install "floor" (unary (math-func "floor")))
-          (install "pow" (binary math//pow))
-          )))
-
 ## [[IO]]
 (def: (io//exit input)
   Unary
@@ -446,7 +419,6 @@
           (dict.merge frac-procs)
           (dict.merge text-procs)
           (dict.merge array-procs)
-          (dict.merge math-procs)
           (dict.merge io-procs)
           (dict.merge atom-procs)
           (dict.merge box-procs)
-- 
cgit v1.2.3