From e4bc4d0e2cd14a955530160c4fc7859e6c46874e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 3 Feb 2022 05:55:42 -0400
Subject: Fixes for the pure-Lux JVM compiler machinery. [Part 13 / Done!]

---
 .../source/luxc/lang/translation/jvm/program.lux   | 50 +++++++++++-----------
 1 file changed, 26 insertions(+), 24 deletions(-)

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

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/program.lux b/lux-jvm/source/luxc/lang/translation/jvm/program.lux
index 7e408ecc4..4efe0fd3d 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/program.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/program.lux
@@ -1,32 +1,34 @@
 (.using
-  [library
-   [lux "*"
-    [data
-     [text
-      ["%" format {"+" format}]]]
-    [target
-     [jvm
-      ["$t" type]]]
-    [tool
-     [compiler
-      [language
-       [lux
-        [generation {"+" Context}]
-        [program {"+" Program}]]]]]]]
-  [luxc
-   [lang
-    [host
-     ["_" jvm
-      ["$d" def]
-      ["$i" inst]]]
-    [translation
-     ["[0]" jvm
-      ["[0]" runtime]]]]])
+ [library
+  [lux "*"
+   [data
+    [text
+     ["%" format {"+" format}]]]
+   [target
+    [jvm
+     ["$t" type]]]
+   [tool
+    [compiler
+     [language
+      [lux
+       [program {"+" Program}]]]
+     [meta
+      [archive
+       ["[0]" unit]]]]]]]
+ [luxc
+  [lang
+   [host
+    ["_" jvm
+     ["$d" def]
+     ["$i" inst]]]
+   [translation
+    ["[0]" jvm
+     ["[0]" runtime]]]]])
 
 (def: ^Object ($t.class "java.lang.Object" (list)))
 
 (def: .public (program artifact_name context programI)
-  (-> (-> Context Text) (Program _.Inst _.Definition))
+  (-> (-> unit.ID Text) (Program _.Inst _.Definition))
   (let [nilI runtime.noneI
         num_inputsI (|>> ($i.ALOAD 0) $i.ARRAYLENGTH)
         --I (|>> ($i.int +1) $i.ISUB)
-- 
cgit v1.2.3