From 9bf491a18e4b772505c3767cf0249eb24f0a822b Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sat, 24 Feb 2018 17:10:44 -0400 Subject: - Removed the "root2" and "root3" host procedures (their functionality is redundant, in the presence of the "pow" procedure). --- new-luxc/source/luxc/lang/extension/analysis/common.lux | 2 -- .../source/luxc/lang/translation/js/procedure/common.jvm.lux | 4 ---- .../source/luxc/lang/translation/jvm/procedure/common.jvm.lux | 4 ---- new-luxc/test/test/luxc/lang/analysis/procedure/common.lux | 2 -- new-luxc/test/test/luxc/lang/translation/common.lux | 11 ++++------- 5 files changed, 4 insertions(+), 19 deletions(-) (limited to 'new-luxc') 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) ( ( param subject) (:! valueT)) - _ + (#e.Error error) false)))] ["lux nat +" n/+ Nat n/=] @@ -207,7 +207,7 @@ (case> (#e.Success valueT) ( ( param subject) (:! valueT)) - _ + (#e.Error error) false)))] ["lux int +" i/+ Int i/=] @@ -397,7 +397,7 @@ (case> (#e.Success valueT) ( ( param subject) (:! 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" -- cgit v1.2.3