aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source
diff options
context:
space:
mode:
authorEduardo Julian2021-06-08 13:26:10 -0400
committerEduardo Julian2021-06-08 13:26:10 -0400
commit512d7feeb915376c090aedaf64e8209689becd2a (patch)
tree065f4706fd9ab47de59fb2fb009a28aaaa508c91 /lux-jvm/source
parent52ee6639be048621776527380a1fe7eb51c055ab (diff)
Added type information when logging compiled definitions.
Diffstat (limited to '')
-rw-r--r--lux-jvm/source/program.lux40
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! _)