From 8b4f0ded7bddaa42cf432f74523bfd6aa1e76fed Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Jul 2018 23:44:29 -0400
Subject: WIP: Fix new-luxc's JVM back-end.

---
 new-luxc/source/luxc/lang/host/jvm/def.lux | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'new-luxc/source/luxc/lang/host/jvm/def.lux')

diff --git a/new-luxc/source/luxc/lang/host/jvm/def.lux b/new-luxc/source/luxc/lang/host/jvm/def.lux
index 4c19f38f6..3d3f8d80d 100644
--- a/new-luxc/source/luxc/lang/host/jvm/def.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/def.lux
@@ -1,16 +1,17 @@
 (.module:
-  lux
-  (lux (data [text]
-             text/format
-             [product]
-             (coll ["a" array]
-                   [list "list/" Functor<List>]))
-       [host #+ do-to]
-       [function])
-  ["$" //]
-  (// ["$t" type]))
-
-## [Host]
+  [lux #*
+   [data
+    ["." text
+     format]
+    ["." product]
+    [collection
+     ["a" array]
+     [list ("list/" Functor<List>)]]]
+   [host (#+ do-to)]
+   [function]]
+  ["$" //
+   ["$t" type]])
+
 (host.import: #long java/lang/Object)
 (host.import: #long java/lang/String)
 
@@ -59,7 +60,6 @@
   (visitMethod [int String String String (Array String)] MethodVisitor)
   (toByteArray [] (Array byte)))
 
-## [Defs]
 (def: (string-array values)
   (-> (List Text) (Array Text))
   (let [output (host.array String (list.size values))]
-- 
cgit v1.2.3