- Re-named "degree" to "revolution".

3 files changed, 2 insertions, 10 deletions

diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux
index 41e93c13b..9d781429e 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/case.jvm.lux
@@ -118,7 +118,7 @@
     ([#.Bool _.bool _.equal]
      [#.Nat  (<| _.int (:coerce Int)) _.=]
      [#.Int  _.int _.=]
-     [#.Deg  (<| _.int (:coerce Int)) _.=]
+     [#.Rev  (<| _.int (:coerce Int)) _.=]
      [#.Frac _.float _.=]
      [#.Text _.string _.equal])
 
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/expression.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/expression.jvm.lux
index b002341cc..4e0c617b4 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/expression.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/expression.jvm.lux
@@ -41,7 +41,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/common-lisp/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/primitive.jvm.lux
index 4e26c4218..1c8c17bed 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/primitive.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/primitive.jvm.lux
@@ -13,14 +13,6 @@
   (-> Int (Meta Expression))
   (|>> _.int meta/wrap))
 
-(def: #export translate-nat
-  (-> Nat (Meta Expression))
-  (|>> (:coerce Int) _.int meta/wrap))
-
-(def: #export translate-deg
-  (-> Deg (Meta Expression))
-  (|>> (:coerce Int) _.int meta/wrap))
-
 (def: #export translate-frac
   (-> Frac (Meta Expression))
   (|>> _.double meta/wrap))