From d4792368d8e63f9eb883a2cfbe9da5312b2ad557 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 2 Mar 2022 04:37:11 -0400
Subject: Finishing the meta-compiler [Part 5]

---
 stdlib/source/program/compositor.lux | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index cad7bf352..70e392965 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -46,6 +46,8 @@
       ["[0]" cli {"+" Service}]
       ["[0]" import]
       ["[0]" export]
+      ["[0]" cache "_"
+       ["[1]" archive]]
       [archive {"+" Archive}
        ["[0]" unit]
        [module
@@ -170,7 +172,7 @@
                                          
                                          (Async (Try [Archive (directive.State+ <parameters>)]))
                                          (:expected (platform.compile lux_compiler phase_wrapper import file_context expander platform compilation [archive state])))
-               _ (ioW.freeze (value@ platform.#&file_system platform) file_context archive)
+               _ (cache.cache! (value@ platform.#&file_system platform) file_context archive)
                program_context (async#in ($/program.context archive))
                host_dependencies (..load_host_dependencies (value@ platform.#&file_system platform) compilation_host_dependencies)
                _ (..package! (for [@.old (file.async file.default)
-- 
cgit v1.2.3