diff options
| author | Eduardo Julian | 2019-09-18 22:10:08 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-09-18 22:10:08 -0400 |
| commit | 6ac46f2f385815f6b51bef9c81435d283c598459 (patch) | |
| tree | 1b4336f3a90bdef1b2ed90d3087deb50093d7424 /new-luxc/source/program.lux | |
| parent | 343c16f6f960eb1e7c75804ee83d4d8dba8a11e7 (diff) | |
Now generating a "LuxProgram" class, instead of a "_" class.
Diffstat (limited to 'new-luxc/source/program.lux')
| -rw-r--r-- | new-luxc/source/program.lux | 11 |
1 files changed, 6 insertions, 5 deletions
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]))) |