- Removed the "root2" and "root3" host procedures (their functionality is redundant, in the presence of the "pow" procedure).

5 files changed, 4 insertions, 19 deletions

diff --git a/new-luxc/source/luxc/lang/extension/analysis/common.lux b/new-luxc/source/luxc/lang/extension/analysis/common.lux
index 1a1c8c650..9fc807f75 100644
--- a/new-luxc/source/luxc/lang/extension/analysis/common.lux
+++ b/new-luxc/source/luxc/lang/extension/analysis/common.lux
@@ -343,8 +343,6 @@
           (install "tanh" (unary Frac Frac))
           (install "exp" (unary Frac Frac))
           (install "log" (unary Frac Frac))
-          (install "root2" (unary Frac Frac))
-          (install "root3" (unary Frac Frac))
           (install "ceil" (unary Frac Frac))
           (install "floor" (unary Frac Frac))
           (install "round" (unary Frac Frac))
diff --git a/new-luxc/source/luxc/lang/translation/js/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/js/procedure/common.jvm.lux
index 49bf7fe27..14329e0dd 100644
--- a/new-luxc/source/luxc/lang/translation/js/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/js/procedure/common.jvm.lux
@@ -380,8 +380,6 @@
   [math//tanh "tanh"]
   [math//exp "exp"]
   [math//log "log"]
-  [math//root2 "sqrt"]
-  [math//root3 "cbrt"]
   [math//ceil "ceil"]
   [math//floor "floor"]
   [math//round "round"]
@@ -602,8 +600,6 @@
           (install "tanh" (unary math//tanh))
           (install "exp" (unary math//exp))
           (install "log" (unary math//log))
-          (install "root2" (unary math//root2))
-          (install "root3" (unary math//root3))
           (install "ceil" (unary math//ceil))
           (install "floor" (unary math//floor))
           (install "round" (unary math//round))
diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
index 5ce483730..422d9da1d 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
@@ -476,8 +476,6 @@
   [math//tanh "tanh"]
   [math//exp "exp"]
   [math//log "log"]
-  [math//root2 "sqrt"]
-  [math//root3 "cbrt"]
   [math//ceil "ceil"]
   [math//floor "floor"]
   )
@@ -741,8 +739,6 @@
           (install "tanh" (unary math//tanh))
           (install "exp" (unary math//exp))
           (install "log" (unary math//log))
-          (install "root2" (unary math//root2))
-          (install "root3" (unary math//root3))
           (install "ceil" (unary math//ceil))
           (install "floor" (unary math//floor))
           (install "round" (unary math//round))
diff --git a/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux b/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux
index f51938046..0cecc3bd0 100644
--- a/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux
+++ b/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux
@@ -304,8 +304,6 @@
                                     ["lux math tanh" "hyperbolic tangent"]
                                     ["lux math exp" "exponentiation"]
                                     ["lux math log" "logarithm"]
-                                    ["lux math root2" "square root"]
-                                    ["lux math root3" "cubic root"]
                                     ["lux math ceil" "ceiling"]
                                     ["lux math floor" "floor"]
                                     ["lux math round" "rounding"])
diff --git a/new-luxc/test/test/luxc/lang/translation/common.lux b/new-luxc/test/test/luxc/lang/translation/common.lux
index d3f1e9cf4..a120059ce 100644
--- a/new-luxc/test/test/luxc/lang/translation/common.lux
+++ b/new-luxc/test/test/luxc/lang/translation/common.lux
@@ -142,7 +142,7 @@
                              (case> (#e.Success valueT)
                                     (<comp> (<reference> param subject) (:! <outputT> valueT))
 
-                                    _
+                                    (#e.Error error)
                                     false)))]
 
                   ["lux nat +" n/+ Nat  n/=]
@@ -207,7 +207,7 @@
                                             (case> (#e.Success valueT)
                                                    (<comp> (<reference> param subject) (:! <outputT> valueT))
 
-                                                   _
+                                                   (#e.Error error)
                                                    false)))]
 
                                  ["lux int +" i/+ Int  i/=]
@@ -397,7 +397,7 @@
                              (case> (#e.Success valueT)
                                     (<comp> (<reference> param subject) (:! <outputT> valueT))
 
-                                    _
+                                    (#e.Error error)
                                     false)))]
 
                   ["lux deg +" d/+ Deg  d/=]
@@ -648,8 +648,6 @@
                   ["lux math tanh"]
                   ["lux math exp"]
                   ["lux math log"]
-                  ["lux math root2"]
-                  ["lux math root3"]
                   ["lux math ceil"]
                   ["lux math floor"]
                   ["lux math round"]))
@@ -855,8 +853,7 @@
 
 ## Text
 (context: "[JVM] Text procedures"
-  (<| (seed +4439612689198907401)
-      ## (times +100)
+  (<| (times +100)
       (text-spec run-jvm)))
 
 (context: "[JS] Text procedures"