From b25eec45fa9aabdc252d59afad3e0c7e73a18fd9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 22 Oct 2022 02:49:30 -0400
Subject: Clean-up after format change for extensions [part 3]

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

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index f3723c1c0..77802d3cc 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -158,6 +158,9 @@
             ..timed
             (do (try.with async.monad)
               [import (import.import (the platform.#file_system platform) (the cli.#libraries compilation))
+               .let [all_extensions [(analysisE.bundle host_analysis)
+                                     generation_bundle
+                                     host_declaration_bundle]]
                [state archive phase_wrapper] (sharing [<parameters>]
                                                (is (Platform <parameters>)
                                                    platform)
@@ -172,7 +175,8 @@
                                                                                      extender
                                                                                      import
                                                                                      (the cli.#sources compilation)
-                                                                                     (the cli.#configuration compilation)))))
+                                                                                     (the cli.#configuration compilation)
+                                                                                     all_extensions))))
                [archive state] (sharing [<parameters>]
                                  (is (Platform <parameters>)
                                      platform)
@@ -188,9 +192,7 @@
                                                                     platform
                                                                     compilation
                                                                     [archive state]
-                                                                    [(analysisE.bundle host_analysis)
-                                                                     generation_bundle
-                                                                     host_declaration_bundle]))))
+                                                                    all_extensions))))
                _ (cache.cache! (the platform.#file_system platform) (the cli.#configuration compilation) file_context archive)
                host_dependencies (..load_host_dependencies (the platform.#file_system platform)
                                                            (the cli.#host_dependencies compilation))
-- 
cgit v1.2.3