From d710d9f4fc098e7c243c8a5f23cd42683f13e07f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 16 Mar 2022 04:22:45 -0400
Subject: Generalized/type-agnostic arithmetic.

---
 stdlib/source/program/aedifex/command/build.lux | 3 ++-
 stdlib/source/program/aedifex/runtime.lux       | 9 +++++----
 2 files changed, 7 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index a8a5ffbc1..b9211ceb0 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -269,7 +269,8 @@
 
     _
     (revised ///runtime.#parameters
-             (|>> (list& "-cp" (..jvm_class_path host_dependencies)))
+             (|>> (list& "-cp" (..jvm_class_path host_dependencies)
+                         "--add-opens" "java.base/java.lang=ALL-UNNAMED"))
              runtime)))
 
 (def: .public (do! console program fs shell resolution)
diff --git a/stdlib/source/program/aedifex/runtime.lux b/stdlib/source/program/aedifex/runtime.lux
index 9179dc2e8..57d18d265 100644
--- a/stdlib/source/program/aedifex/runtime.lux
+++ b/stdlib/source/program/aedifex/runtime.lux
@@ -21,9 +21,10 @@
 
 (def: .public equivalence
   (Equivalence Runtime)
-  (product.equivalence
-   text.equivalence
-   (list.equivalence text.equivalence)))
+  ($_ product.equivalence
+      text.equivalence
+      (list.equivalence text.equivalence)
+      ))
 
 (template [<name> <command> <parameters>]
   [(def: .public <name>
@@ -31,7 +32,7 @@
      [#program <command>
       #parameters (`` (list (~~ (template.spliced <parameters>))))])]
 
-  [default_java "java" ["-jar" "--add-opens" "java.base/java.lang=ALL-UNNAMED"]]
+  [default_java "java" ["--add-opens" "java.base/java.lang=ALL-UNNAMED" "-jar"]]
   [default_js "node" ["--stack_size=8192"]]
   [default_python "python3" []]
   [default_lua "lua" []]
-- 
cgit v1.2.3