From 697707d8560a5735be38fd9b1ff91a02c289d48f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 16 Apr 2019 20:53:41 -0400
Subject: Made some new-luxc modules "old".

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

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux
deleted file mode 100644
index f9d9034ea..000000000
--- a/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux
+++ /dev/null
@@ -1,33 +0,0 @@
-(.module:
-  [lux (#- i64)
-   [abstract
-    monad]
-   [data
-    [text
-     format]]
-   [tool
-    [compiler
-     [phase ("operation/." monad)]]]]
-  [luxc
-   [lang
-    [host
-     ["." jvm (#+ Inst Operation)
-      ["_" inst]
-      ["$t" type]]]]])
-
-(def: #export (bit value)
-  (-> Bit (Operation Inst))
-  (operation/wrap (_.GETSTATIC "java.lang.Boolean"
-                               (if value "TRUE" "FALSE")
-                               ($t.class "java.lang.Boolean" (list)))))
-
-(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 #jvm.Long)]
-  [f64  Frac      _.double         (_.wrap #jvm.Double)]
-  [text Text      _.string         (<|)]
-  )
-- 
cgit v1.2.3