From a952343569f321006d0183ef7ce250e3f8b996cb Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 8 Jul 2019 00:24:20 -0400
Subject: * Re-named "Instruction" to "Bytecode". * Re-named "Program" to
 "Instruction".

---
 stdlib/source/test/lux/target/jvm.lux | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/test')

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 []))]
-- 
cgit v1.2.3