aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-jvm/source')
-rw-r--r--lux-jvm/source/program.lux26
1 files changed, 12 insertions, 14 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index 96b9d749b..82d1fb6e3 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -82,14 +82,13 @@
(ffi.write! 0 _object_class)
(ffi.write! 1 _object_class)))
-(def _apply5_args
+(def _apply4_args
(Array (java/lang/Class java/lang/Object))
- (|> (ffi.array (java/lang/Class java/lang/Object) 5)
+ (|> (ffi.array (java/lang/Class java/lang/Object) 4)
(ffi.write! 0 _object_class)
(ffi.write! 1 _object_class)
(ffi.write! 2 _object_class)
- (ffi.write! 3 _object_class)
- (ffi.write! 4 _object_class)))
+ (ffi.write! 3 _object_class)))
(def .public (expander macro inputs lux)
Expander
@@ -133,10 +132,10 @@
(<| (as extension.Extender)
(function (@self handler))
(as extension.Handler)
- (function (@self name phase))
- (as extension.Phase)
+ (function (@self phase))
+ (as phase.Phase)
(function (@self archive parameters))
- (as extension.Operation)
+ (as phase.Operation)
(function (@self state))
(as Try)
try.trusted
@@ -145,15 +144,14 @@
[method (|> handler
(as java/lang/Object)
(java/lang/Object::getClass)
- (java/lang/Class::getMethod "apply" _apply5_args))]
+ (java/lang/Class::getMethod "apply" _apply4_args))]
(java/lang/reflect/Method::invoke
(as java/lang/Object handler)
- (|> (ffi.array java/lang/Object 5)
- (ffi.write! 0 (as java/lang/Object name))
- (ffi.write! 1 (as java/lang/Object (phase_wrapper phase)))
- (ffi.write! 2 (as java/lang/Object archive))
- (ffi.write! 3 (as java/lang/Object parameters))
- (ffi.write! 4 (as java/lang/Object state)))
+ (|> (ffi.array java/lang/Object 4)
+ (ffi.write! 0 (as java/lang/Object (phase_wrapper phase)))
+ (ffi.write! 1 (as java/lang/Object archive))
+ (ffi.write! 2 (as java/lang/Object parameters))
+ (ffi.write! 3 (as java/lang/Object state)))
method))))
(def (declare_success! _)