From 376ed521cd92c2c53f2e9cc3cb16b85b67e2fdea Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 4 Jul 2018 22:38:56 -0400
Subject: - Re-named "degree" to "revolution".

---
 new-luxc/source/luxc/lang/translation/lua/case.jvm.lux       | 2 +-
 new-luxc/source/luxc/lang/translation/lua/expression.jvm.lux | 2 +-
 new-luxc/source/luxc/lang/translation/lua/primitive.jvm.lux  | 8 --------
 3 files changed, 2 insertions(+), 10 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/lua/case.jvm.lux b/new-luxc/source/luxc/lang/translation/lua/case.jvm.lux
index a72bf0011..70d2330f4 100644
--- a/new-luxc/source/luxc/lang/translation/lua/case.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/lua/case.jvm.lux
@@ -104,7 +104,7 @@
                             (lua.return! pm-error))))
     ([#.Nat  (<| lua.int (:coerce Int))]
      [#.Int  lua.int]
-     [#.Deg  (<| lua.int (:coerce Int))]
+     [#.Rev  (<| lua.int (:coerce Int))]
      [#.Bool lua.bool]
      [#.Frac lua.float]
      [#.Text lua.string])
diff --git a/new-luxc/source/luxc/lang/translation/lua/expression.jvm.lux b/new-luxc/source/luxc/lang/translation/lua/expression.jvm.lux
index e2c626e83..9632d5708 100644
--- a/new-luxc/source/luxc/lang/translation/lua/expression.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/lua/expression.jvm.lux
@@ -45,7 +45,7 @@
     ([#.Bool primitiveT.translate-bool]
      [#.Nat  primitiveT.translate-nat]
      [#.Int  primitiveT.translate-int]
-     [#.Deg  primitiveT.translate-deg]
+     [#.Rev  primitiveT.translate-rev]
      [#.Frac primitiveT.translate-frac]
      [#.Text primitiveT.translate-text])
 
diff --git a/new-luxc/source/luxc/lang/translation/lua/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/lua/primitive.jvm.lux
index 5769f6890..4a6c78b04 100644
--- a/new-luxc/source/luxc/lang/translation/lua/primitive.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/lua/primitive.jvm.lux
@@ -14,14 +14,6 @@
   (-> Int (Meta Expression))
   (|>> %i meta/wrap))
 
-(def: #export translate-nat
-  (-> Nat (Meta Expression))
-  (|>> (:coerce Int) %i meta/wrap))
-
-(def: #export translate-deg
-  (-> Deg (Meta Expression))
-  (|>> (:coerce Int) %i meta/wrap))
-
 (def: #export translate-frac
   (-> Frac (Meta Expression))
   (|>> (cond> [(f/= number.positive-infinity)]
-- 
cgit v1.2.3