From 832a9361b632331e82a64c07baa560487ca8abde Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Tue, 29 Dec 2020 00:38:21 -0400 Subject: Moved "lux/data/number" to "lux/math/number". --- .../source/luxc/lang/translation/jvm/program.lux | 28 +++++++++++----------- 1 file changed, 14 insertions(+), 14 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 2c4f1d3f2..234c20fa9 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/program.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/program.lux @@ -24,10 +24,10 @@ (def: ^Object ($t.class "java.lang.Object" (list))) -(def: #export (program artifact-name context programI) +(def: #export (program artifact_name context programI) (-> (-> Context Text) (Program _.Inst _.Definition)) (let [nilI runtime.noneI - num-inputsI (|>> ($i.ALOAD 0) $i.ARRAYLENGTH) + num_inputsI (|>> ($i.ALOAD 0) $i.ARRAYLENGTH) decI (|>> ($i.int +1) $i.ISUB) headI (|>> $i.DUP ($i.ALOAD 0) @@ -53,10 +53,10 @@ $i.DUP2_X1 $i.POP2 runtime.variantI) - prepare-input-listI (<| $i.with-label (function (_ @loop)) - $i.with-label (function (_ @end)) + prepare_input_listI (<| $i.with_label (function (_ @loop)) + $i.with_label (function (_ @end)) (|>> nilI - num-inputsI + num_inputsI ($i.label @loop) decI $i.DUP @@ -68,23 +68,23 @@ ($i.GOTO @loop) ($i.label @end) $i.POP)) - feed-inputsI ($i.INVOKEVIRTUAL jvm.$Function runtime.apply-method (runtime.apply-signature 1)) - run-ioI (|>> ($i.CHECKCAST jvm.$Function) + feed_inputsI ($i.INVOKEVIRTUAL jvm.$Function runtime.apply_method (runtime.apply_signature 1)) + run_ioI (|>> ($i.CHECKCAST jvm.$Function) $i.NULL - ($i.INVOKEVIRTUAL jvm.$Function runtime.apply-method (runtime.apply-signature 1))) - main-type ($t.method [(list ($t.array ($t.class "java.lang.String" (list)))) + ($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)]) - class (artifact-name context)] + class (artifact_name context)] [class ($d.class #_.V1_6 #_.Public _.finalC class (list) ..^Object (list) - (|>> ($d.method #_.Public _.staticM "main" main-type + (|>> ($d.method #_.Public _.staticM "main" main_type (|>> programI - prepare-input-listI - feed-inputsI - run-ioI + prepare_input_listI + feed_inputsI + run_ioI $i.RETURN))))])) -- cgit v1.2.3