From 5d2512af61ac17bca25a4790ea01c24f7d2415da Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Mon, 29 Jun 2020 00:11:01 -0400 Subject: Added the missing cache invalidation to the new compiler. --- stdlib/source/program/compositor.lux | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'stdlib/source/program') diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index dc8be4f83..695d8a9d9 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -55,7 +55,8 @@ ["." / #_ ["#." cli (#+ Service)] ["#." static (#+ Static)] - ["#." export]]) + ["#." export] + ["#." import]]) (def: (or-crash! failure-description action) (All [a] @@ -117,17 +118,19 @@ (<| (or-crash! "Compilation failed:") (do (try.with promise.monad) [#let [[compilation-sources compilation-libraries compilation-target compilation-module] compilation] + import (/import.import (get@ #platform.&file-system platform) compilation-libraries) [state archive] (:share [] {(Platform ) platform} {(Promise (Try [(directive.State+ ) Archive])) - (:assume (platform.initialize static compilation-module expander host-analysis platform generation-bundle host-directive-bundle program extender))}) + (:assume (platform.initialize static compilation-module expander host-analysis platform generation-bundle host-directive-bundle program extender + import compilation-sources))}) [archive state] (:share [] {(Platform ) platform} {(Promise (Try [Archive (directive.State+ )])) - (:assume (platform.compile compilation-libraries static expander platform compilation [archive state]))}) + (:assume (platform.compile import static expander platform compilation [archive state]))}) _ (ioW.freeze (get@ #platform.&file-system platform) static archive) program-context (promise@wrap ($/program.context archive)) _ (promise.future (..package! io.monad file.system packager,package static archive program-context))] -- cgit v1.2.3