From de1d6adc6657feb81332db8620094dd8de150b96 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Jul 2020 03:55:43 -0400
Subject: Mo' fixes, less problems.

---
 lux-js/source/program.lux | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

(limited to 'lux-js/source')

diff --git a/lux-js/source/program.lux b/lux-js/source/program.lux
index bd7dded23..18b31c415 100644
--- a/lux-js/source/program.lux
+++ b/lux-js/source/program.lux
@@ -501,16 +501,17 @@
       (do try.monad
         [handler (try.from-maybe (..ensure-macro (:coerce Macro handler)))
          #let [to-js (: (-> Any java/lang/Object)
-                        (|>> (:coerce (Array java/lang/Object)) js-structure (:coerce java/lang/Object)))]]
-        (jdk/nashorn/api/scripting/JSObject::call #.None
-                                                  (|> (array.new 2)
-                                                      (: (Array java/lang/Object))
-                                                      (array.write 0 (to-js name))
-                                                      (array.write 1 (to-js phase))
-                                                      (array.write 2 (to-js archive))
-                                                      (array.write 3 (to-js parameters))
-                                                      (array.write 4 (to-js state)))
-                                                  (:coerce jdk/nashorn/api/scripting/JSObject handler)))))
+                        (|>> (:coerce (Array java/lang/Object)) js-structure (:coerce java/lang/Object)))]
+         output (jdk/nashorn/api/scripting/JSObject::call #.None
+                                                          (|> (array.new 5)
+                                                              (: (Array java/lang/Object))
+                                                              (array.write 0 name)
+                                                              (array.write 1 (to-js phase))
+                                                              (array.write 2 (to-js archive))
+                                                              (array.write 3 (to-js parameters))
+                                                              (array.write 4 (to-js state)))
+                                                          (:coerce jdk/nashorn/api/scripting/JSObject handler))]
+        (lux-object (:coerce java/lang/Object output)))))
 
 (def: (declare-success! _)
   (-> Any (Promise Any))
@@ -528,6 +529,7 @@
                          generation.bundle
                          extension/bundle.empty
                          (..program reference.artifact)
+                         [(& Register Text) _.Expression _.Statement]
                          ..extender
                          service
                          [(packager.package _.use-strict _.code _.then)
-- 
cgit v1.2.3