aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
authorEduardo Julian2020-06-29 00:11:01 -0400
committerEduardo Julian2020-06-29 00:11:01 -0400
commit5d2512af61ac17bca25a4790ea01c24f7d2415da (patch)
treed55c001f8163f53f887a4dcf3a25141ca06acd00 /stdlib/source/program
parentb1606a5efcba32abe722759dbfca02586ff2179a (diff)
Added the missing cache invalidation to the new compiler.
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/compositor.lux9
1 files changed, 6 insertions, 3 deletions
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 [<parameters>]
{(Platform <parameters>)
platform}
{(Promise (Try [(directive.State+ <parameters>)
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 [<parameters>]
{(Platform <parameters>)
platform}
{(Promise (Try [Archive (directive.State+ <parameters>)]))
- (: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))]