From 512d7feeb915376c090aedaf64e8209689becd2a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 8 Jun 2021 13:26:10 -0400
Subject: Added type information when logging compiled definitions.

---
 lux-jvm/source/program.lux | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

(limited to 'lux-jvm')

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! _)
-- 
cgit v1.2.3