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/r/case.jvm.lux       | 2 +-
 new-luxc/source/luxc/lang/translation/r/expression.jvm.lux | 2 +-
 new-luxc/source/luxc/lang/translation/r/primitive.jvm.lux  | 8 --------
 3 files changed, 2 insertions(+), 10 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/r/case.jvm.lux b/new-luxc/source/luxc/lang/translation/r/case.jvm.lux
index 3aa3d4a8a..fb16b8791 100644
--- a/new-luxc/source/luxc/lang/translation/r/case.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/case.jvm.lux
@@ -126,7 +126,7 @@
                          fail-pm!)))
     ([#.Nat  (<| runtimeT.int (:coerce Int))]
      [#.Int  runtimeT.int]
-     [#.Deg  (<| runtimeT.int (:coerce Int))])
+     [#.Rev  (<| runtimeT.int (:coerce Int))])
 
     (^template [<pm> <getter>]
       (^code (<pm> (~ [_ (#.Nat idx)])))
diff --git a/new-luxc/source/luxc/lang/translation/r/expression.jvm.lux b/new-luxc/source/luxc/lang/translation/r/expression.jvm.lux
index d68f6055e..cd2227df3 100644
--- a/new-luxc/source/luxc/lang/translation/r/expression.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/expression.jvm.lux
@@ -42,7 +42,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/r/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/r/primitive.jvm.lux
index ad89f2e31..3652dfcfd 100644
--- a/new-luxc/source/luxc/lang/translation/r/primitive.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/primitive.jvm.lux
@@ -13,14 +13,6 @@
   (-> Int (Meta Expression))
   (|>> runtimeT.int meta/wrap))
 
-(def: #export translate-nat
-  (-> Nat (Meta Expression))
-  (|>> (:coerce Int) runtimeT.int meta/wrap))
-
-(def: #export translate-deg
-  (-> Deg (Meta Expression))
-  (|>> (:coerce Int) runtimeT.int meta/wrap))
-
 (def: #export translate-frac
   (-> Frac (Meta Expression))
   (|>> r.float meta/wrap))
-- 
cgit v1.2.3