From d636f97db32f0ca3aa1705c5290afc07314adc53 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 21 Apr 2020 02:53:23 -0400
Subject: Now caching the reservations from the archive.

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

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 5fb10d4ba..3e0820c10 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -42,8 +42,10 @@
        [phase
         [extension (#+ Extender)]]]]
      [meta
-      ["." archive (#+ Archive)
-       [descriptor (#+ Module)]]]]
+      [archive (#+ Archive)
+       [descriptor (#+ Module)]]
+      [io
+       ["ioW" archive]]]]
     ## ["." interpreter]
     ]]
   ["." / #_
@@ -118,17 +120,19 @@
         (#/cli.Compilation configuration)
         (<| (or-crash! "Compilation failed:")
             (do (try.with promise.monad)
-              [[state runtime-buffer] (:share [<parameters>]
-                                              {(Platform <parameters>)
-                                               platform}
-                                              {(Promise (Try [(directive.State+ <parameters>)
-                                                              (Buffer artifact)]))
-                                               (platform.initialize target host (get@ #/cli.module configuration) expander host-analysis platform generation-bundle host-directive-bundle program extender)})
+              [[state archive runtime-buffer] (:share [<parameters>]
+                                                      {(Platform <parameters>)
+                                                       platform}
+                                                      {(Promise (Try [(directive.State+ <parameters>)
+                                                                      Archive
+                                                                      (Buffer artifact)]))
+                                                       (platform.initialize target host (get@ #/cli.module configuration) expander host-analysis platform generation-bundle host-directive-bundle program extender)})
                [archive state] (:share [<parameters>]
                                        {(Platform <parameters>)
                                         platform}
                                        {(Promise (Try [Archive (directive.State+ <parameters>)]))
-                                        (platform.compile target partial-host-extension expander platform host configuration archive.empty extension state)})
+                                        (platform.compile target partial-host-extension expander platform host configuration archive extension state)})
+               _ (ioW.freeze (get@ #platform.&file-system platform) host target archive)
                ## _ (save-artifacts! (get@ #platform.&file-system platform) state packager,package)
                ## _ (cache/io.clean target ...)
                ]
-- 
cgit v1.2.3