From aa42fde49c66d73f41b17d4939a9226671442a8a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 24 Jun 2020 22:31:02 -0400
Subject: Last bug fixes to get the new JVM compiler to fully process the
 standard library and its tests.

---
 lux-jvm/source/program.lux | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

(limited to 'lux-jvm/source/program.lux')

diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index e2cf047e9..ccb8ba414 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -82,13 +82,14 @@
       (host.array-write 0 _object-class)
       (host.array-write 1 _object-class)))
 
-(def: _apply4-args
+(def: _apply5-args
   (Array (java/lang/Class java/lang/Object))
-  (|> (host.array (java/lang/Class java/lang/Object) 4)
+  (|> (host.array (java/lang/Class java/lang/Object) 5)
       (host.array-write 0 _object-class)
       (host.array-write 1 _object-class)
       (host.array-write 2 _object-class)
-      (host.array-write 3 _object-class)))
+      (host.array-write 3 _object-class)
+      (host.array-write 4 _object-class)))
 
 (def: #export (expander macro inputs lux)
   Expander
@@ -127,7 +128,7 @@
       (:coerce Handler)
       (function (@self name phase))
       (:coerce Phase)
-      (function (@self parameters))
+      (function (@self archive parameters))
       (:coerce Operation)
       (function (@self state))
       (:coerce Try)
@@ -137,14 +138,15 @@
         [method (|> handler
                     (:coerce java/lang/Object)
                     (java/lang/Object::getClass)
-                    (java/lang/Class::getMethod "apply" _apply4-args))]
+                    (java/lang/Class::getMethod "apply" _apply5-args))]
         (java/lang/reflect/Method::invoke
          (:coerce java/lang/Object handler)
-         (|> (host.array java/lang/Object 4)
+         (|> (host.array java/lang/Object 5)
              (host.array-write 0 (:coerce java/lang/Object name))
              (host.array-write 1 (:coerce java/lang/Object phase))
-             (host.array-write 2 (:coerce java/lang/Object parameters))
-             (host.array-write 3 (:coerce java/lang/Object state)))
+             (host.array-write 2 (:coerce java/lang/Object archive))
+             (host.array-write 3 (:coerce java/lang/Object parameters))
+             (host.array-write 4 (:coerce java/lang/Object state)))
          method))))
 
 (def: (target service)
-- 
cgit v1.2.3