From 0cc98bbe9cae3fd9fc50d8c78c1deaba7e557531 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 15 Jun 2019 19:45:32 -0400
Subject: Array machinery for the JavaScript compiler.

---
 stdlib/source/program/compositor.lux | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program/compositor.lux')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 7db076162..506702706 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -25,6 +25,7 @@
     ["." console]]
    [tool
     [compiler
+     ["." analysis]
      ["." statement]
      ["." phase
       [macro (#+ Expander)]
@@ -78,10 +79,12 @@
       (#error.Failure error)
       (:: io.monad wrap (#error.Failure error)))))
 
-(def: #export (compiler target expander platform generation-bundle host-statement-bundle program service)
+(def: #export (compiler target partial-host-extension expander host-analysis platform generation-bundle host-statement-bundle program service)
   (All [anchor expression statement]
     (-> Text
+        Text
         Expander
+        analysis.Bundle
         (IO (Platform IO anchor expression statement))
         (generation.Bundle anchor expression statement)
         (statement.Bundle anchor expression statement)
@@ -99,12 +102,12 @@
                            {(Platform IO anchor expression statement)
                             platform}
                            {(IO (Error (statement.State+ anchor expression statement)))
-                            (platform.initialize target expander platform generation-bundle host-statement-bundle program)})
+                            (platform.initialize target expander host-analysis platform generation-bundle host-statement-bundle program)})
              [archive state] (:share [anchor expression statement]
                                      {(Platform IO anchor expression statement)
                                       platform}
                                      {(IO (Error [Archive (statement.State+ anchor expression statement)]))
-                                      (platform.compile expander platform configuration archive.empty state)})
+                                      (platform.compile partial-host-extension expander platform configuration archive.empty state)})
              _ (save-artifacts! (get@ #platform.&file-system platform) state)
              ## _ (cache/io.clean target ...)
              ]
-- 
cgit v1.2.3