From b4d0eba7485caf0c6cf58de1193a9114fa273d8b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 30 May 2020 15:19:28 -0400
Subject: Split new-luxc into lux-jvm and lux-r.

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

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/primitive.lux b/new-luxc/source/luxc/lang/translation/jvm/primitive.lux
deleted file mode 100644
index 873c363bd..000000000
--- a/new-luxc/source/luxc/lang/translation/jvm/primitive.lux
+++ /dev/null
@@ -1,30 +0,0 @@
-(.module:
-  [lux (#- i64)
-   [target
-    [jvm
-     ["." type]]]
-   [tool
-    [compiler
-     [phase ("operation@." monad)]]]]
-  [luxc
-   [lang
-    [host
-     ["." jvm (#+ Inst Operation)
-      ["_" inst]]]]])
-
-(def: #export bit
-  (-> Bit (Operation Inst))
-  (let [Boolean (type.class "java.lang.Boolean" (list))]
-    (function (_ value)
-      (operation@wrap (_.GETSTATIC Boolean (if value "TRUE" "FALSE") Boolean)))))
-
-(template [<name> <type> <load> <wrap>]
-  [(def: #export (<name> value)
-     (-> <type> (Operation Inst))
-     (let [loadI (|> value <load>)]
-       (operation@wrap (|>> loadI <wrap>))))]
-
-  [i64  (I64 Any) (<| _.long .int) (_.wrap type.long)]
-  [f64  Frac      _.double         (_.wrap type.double)]
-  [text Text      _.string         (<|)]
-  )
-- 
cgit v1.2.3