diff options
Diffstat (limited to '')
| -rw-r--r-- | lux-jvm/source/program.lux | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux index 65cff6d00..f6a921e86 100644 --- a/lux-jvm/source/program.lux +++ b/lux-jvm/source/program.lux @@ -2,7 +2,7 @@ [lux (#- Definition) [program (#+ program:)] ["@" target] - ["." host (#+ import:)] + ["." ffi (#+ import:)] [abstract [monad (#+ do)]] [control @@ -79,22 +79,22 @@ (def: _object_class (java/lang/Class java/lang/Object) - (host.class_for java/lang/Object)) + (ffi.class_for java/lang/Object)) (def: _apply2_args (Array (java/lang/Class java/lang/Object)) - (|> (host.array (java/lang/Class java/lang/Object) 2) - (host.array_write 0 _object_class) - (host.array_write 1 _object_class))) + (|> (ffi.array (java/lang/Class java/lang/Object) 2) + (ffi.array_write 0 _object_class) + (ffi.array_write 1 _object_class))) (def: _apply5_args (Array (java/lang/Class java/lang/Object)) - (|> (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 4 _object_class))) + (|> (ffi.array (java/lang/Class java/lang/Object) 5) + (ffi.array_write 0 _object_class) + (ffi.array_write 1 _object_class) + (ffi.array_write 2 _object_class) + (ffi.array_write 3 _object_class) + (ffi.array_write 4 _object_class))) (def: #export (expander macro inputs lux) Expander @@ -106,9 +106,9 @@ (:coerce (Try (Try [Lux (List Code)])) (java/lang/reflect/Method::invoke (:coerce java/lang/Object macro) - (|> (host.array java/lang/Object 2) - (host.array_write 0 (:coerce java/lang/Object inputs)) - (host.array_write 1 (:coerce java/lang/Object lux))) + (|> (ffi.array java/lang/Object 2) + (ffi.array_write 0 (:coerce java/lang/Object inputs)) + (ffi.array_write 1 (:coerce java/lang/Object lux))) apply_method)))) (def: #export platform @@ -146,12 +146,12 @@ (java/lang/Class::getMethod "apply" _apply5_args))] (java/lang/reflect/Method::invoke (:coerce java/lang/Object handler) - (|> (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 archive)) - (host.array_write 3 (:coerce java/lang/Object parameters)) - (host.array_write 4 (:coerce java/lang/Object state))) + (|> (ffi.array java/lang/Object 5) + (ffi.array_write 0 (:coerce java/lang/Object name)) + (ffi.array_write 1 (:coerce java/lang/Object phase)) + (ffi.array_write 2 (:coerce java/lang/Object archive)) + (ffi.array_write 3 (:coerce java/lang/Object parameters)) + (ffi.array_write 4 (:coerce java/lang/Object state))) method)))) (def: (declare_success! _) |