From c60426c60a137b454f6177dcb2d563a942dde75f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 13 Feb 2019 18:44:02 -0400
Subject: - WIP: Moved some of the JS compiler machinery over to stdlib. -
 DRYed the reference translation machinery.

---
 .../luxc/lang/translation/js/primitive.jvm.lux     | 41 ----------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 new-luxc/source/luxc/lang/translation/js/primitive.jvm.lux

(limited to 'new-luxc/source/luxc/lang/translation/js/primitive.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/js/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/js/primitive.jvm.lux
deleted file mode 100644
index e69291007..000000000
--- a/new-luxc/source/luxc/lang/translation/js/primitive.jvm.lux
+++ /dev/null
@@ -1,41 +0,0 @@
-(.module:
-  lux
-  (lux (control pipe)
-       (data [bit]
-             [number]
-             text/format)
-       [macro "meta/" Monad<Meta>])
-  [//]
-  (// [".T" runtime])
-  (luxc (lang (host [js #+ JS Expression Statement]))))
-
-(def: #export translate-bit
-  (-> Bit (Meta Expression))
-  (|>> %b meta/wrap))
-
-(def: low-mask Nat (dec (bit.left-shift +32 +1)))
-
-(def: #export (translate-int value)
-  (-> Int (Meta Expression))
-  (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))
-  (|>> (cond> [(f/= number.positive-infinity)]
-              [(new> "Infinity")]
-              
-              [(f/= number.negative-infinity)]
-              [(new> "-Infinity")]
-              
-              [(f/= number.not-a-number)]
-              [(new> "NaN")]
-              
-              ## else
-              [%f])
-       meta/wrap))
-
-(def: #export translate-text
-  (-> Text (Meta Expression))
-  (|>> %t meta/wrap))
-- 
cgit v1.2.3