1 files changed, 4 insertions, 20 deletions
diff --git a/new-luxc/source/luxc/lang/translation/js/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/js/primitive.jvm.lux
index 5fedc9a9e..753f1ce45 100644
--- a/new-luxc/source/luxc/lang/translation/js/primitive.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/js/primitive.jvm.lux
@@ -15,27 +15,11 @@
 
 (def: low-mask Nat (dec (bit.left-shift +32 +1)))
 
-(def: #export (translate-nat value)
-  (-> Nat (Meta Expression))
-  (let [high (|> value
-                 (bit.logical-right-shift +32)
-                 .int %i)
-        low (|> value
-                (bit.and low-mask)
-                .int %i)]
-    (meta/wrap (format runtimeT.int//new "(" high "," low ")"))))
-
-(def: #export translate-int
+(def: #export (translate-int value)
   (-> Int (Meta Expression))
-  (|>> .nat translate-nat))
-
-(def: deg-to-nat
-  (-> Deg Nat)
-  (|>> (:coerce Nat)))
-
-(def: #export translate-deg
-  (-> Deg (Meta Expression))
-  (|>> deg-to-nat translate-nat))
+  (let [high (|> value (bit.logical-right-shift +32) %i)
+        low (|> value (bit.and low-mask) %i)]
+    (meta/wrap (format runtimeT.int//new "(" high "," low ")"))))
 
 (def: #export translate-frac
   (-> Frac (Meta Expression))