diff options
| author | Eduardo Julian | 2019-07-08 00:24:20 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-07-08 00:24:20 -0400 |
| commit | a952343569f321006d0183ef7ce250e3f8b996cb (patch) | |
| tree | 5e360dc6b36cf32bf0566b4c4bbe27954e164ce0 /stdlib/source/test | |
| parent | 4db84442d8d1932c330bea1ffdd6ff18447a47de (diff) | |
* Re-named "Instruction" to "Bytecode".
* Re-named "Program" to "Instruction".
Diffstat (limited to 'stdlib/source/test')
| -rw-r--r-- | stdlib/source/test/lux/target/jvm.lux | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux index 8f97645b4..def28b2a0 100644 --- a/stdlib/source/test/lux/target/jvm.lux +++ b/stdlib/source/test/lux/target/jvm.lux @@ -39,9 +39,8 @@ ["#/." pool]] [encoding ["#." name]] - ["#." program - ["#/." condition (#+ Environment)] - ["#/." instruction]]]}) + ["#." instruction + ["#/." condition (#+ Environment)]]]}) ## (def: (write-class! name bytecode) ## (-> Text Binary (IO Text)) @@ -132,12 +131,12 @@ method-name (/descriptor.method inputsJT outputJT) (list) - (do /program.monad - [_ (/program.ldc/long (/constant.long expected)) - _ (/program.invokestatic "java.lang.Long" "valueOf" - (list /descriptor.long) - (/descriptor.object "java.lang.Long"))] - /program.areturn))) + (do /instruction.monad + [_ (/instruction.ldc/long (/constant.long expected)) + _ (/instruction.invokestatic "java.lang.Long" "valueOf" + (list /descriptor.long) + (/descriptor.object "java.lang.Long"))] + /instruction.areturn))) (row.row)) (binaryF.run /class.writer)) loader (/loader.memory (/loader.new-library []))] |