From 08518ba37d9094c5cc8683fc404c349e534b8dc9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 24 Feb 2022 17:47:27 -0400
Subject: Finishing the meta-compiler [Part 4]

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

(limited to 'stdlib/source/program/compositor.lux')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 250f184bd..cad7bf352 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -26,7 +26,7 @@
     ["[0]" console]
     ["[1]/[0]" program]]
    [tool
-    [compiler
+    ["[0]" compiler
      ["[0]" phase]
      [default
       ["[0]" platform {"+" Platform}]]
@@ -128,12 +128,13 @@
                  (dictionary.has head content output)))))))
 
 (with_expansions [<parameters> (as_is anchor expression artifact)]
-  (def: .public (compiler file_context
+  (def: .public (compiler lux_compiler file_context
                           expander host_analysis platform generation_bundle host_directive_bundle program anchorT,expressionT,directiveT extender
                           service
                           packager,package)
     (All (_ <parameters>)
-      (-> Context
+      (-> (-> Any compiler.Custom)
+          Context
           Expander
           analysis.Bundle
           (IO (Platform <parameters>))
@@ -168,7 +169,7 @@
                                          platform
                                          
                                          (Async (Try [Archive (directive.State+ <parameters>)]))
-                                         (:expected (platform.compile phase_wrapper import file_context expander platform compilation [archive state])))
+                                         (: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)
                program_context (async#in ($/program.context archive))
                host_dependencies (..load_host_dependencies (value@ platform.#&file_system platform) compilation_host_dependencies)
-- 
cgit v1.2.3