aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm
diff options
context:
space:
mode:
authorEduardo Julian2022-10-01 16:33:20 -0400
committerEduardo Julian2022-10-01 16:33:20 -0400
commit53704218a3705132dbe807a8ef54f938809f84d5 (patch)
tree44d03d90f4f6f8055fba226e23755edbb3c55318 /lux-jvm
parent1f4557bf0d904231b3b8d2b2bf73c35e9caead48 (diff)
New format for extensions [part 0]
Diffstat (limited to 'lux-jvm')
-rw-r--r--lux-jvm/source/program.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index 85b517bbd..e87263ce8 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -106,9 +106,9 @@
(ffi.write! 1 (as java/lang/Object lux)))
apply_method))))
-(def (phase_wrapper archive)
- (-> Archive (Operation Anchor (Bytecode Any) Definition phase.Wrapper))
- (at phase.monad in (|>>)))
+(def phase_wrapper
+ phase.Wrapper
+ (|>>))
(def .public platform
(IO [java/lang/ClassLoader
@@ -127,8 +127,8 @@
platform.#phase_wrapper ..phase_wrapper
platform.#write product.right]])))
-(def (extender phase_wrapper)
- (-> phase.Wrapper extension.Extender)
+(def extender
+ extension.Extender
... TODO: Stop relying on coercions ASAP.
(<| (as extension.Extender)
(function (@self handler))
@@ -175,7 +175,7 @@
(analysis.bundle loader host)
(io.io platform)
generation.bundle
- (|>> ..extender (declaration.bundle loader))
+ (declaration.bundle loader ..extender)
(/program.program /runtime.class_name)
/reference.constant
[Anchor (type_literal (Bytecode Any)) Definition]