From 6ac46f2f385815f6b51bef9c81435d283c598459 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Sep 2019 22:10:08 -0400
Subject: Now generating a "LuxProgram" class, instead of a "_" class.

---
 new-luxc/source/program.lux | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'new-luxc/source/program.lux')

diff --git a/new-luxc/source/program.lux b/new-luxc/source/program.lux
index dd44128df..91b42c981 100644
--- a/new-luxc/source/program.lux
+++ b/new-luxc/source/program.lux
@@ -91,6 +91,8 @@
            #platform.phase expression.translate
            #platform.runtime runtime.translate})))
 
+(def: program-class "LuxProgram")
+
 (def: #export (program programI)
   (-> _.Inst _.Definition)
   (let [$Object ($t.class "java.lang.Object" (list))
@@ -142,12 +144,11 @@
                      ($i.INVOKEVIRTUAL jvm.$Function runtime.apply-method (runtime.apply-signature 1)))
         main-type ($t.method [(list ($t.array ($t.class "java.lang.String" (list))))
                               $t.void
-                              (list)])
-        bytecode-name "_"]
-    [bytecode-name
+                              (list)])]
+    [..program-class
      ($d.class #_.V1_6
                #_.Public _.finalC
-               bytecode-name
+               ..program-class
                (list) $Object
                (list)
                (|>> ($d.method #_.Public _.staticM "main" main-type
@@ -171,4 +172,4 @@
                 directive.bundle
                 ..program
                 service
-                [(packager.package module) jar-path])))
+                [(packager.package ..program-class) jar-path])))
-- 
cgit v1.2.3