From 2b5351eb4624ce3c3ada994caaaea77c9d397eb8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 15 Oct 2019 00:50:03 -0400
Subject: Compiler extensions have been tested to work.

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

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

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index b9b2995ad..31f018081 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -30,6 +30,7 @@
      ["." directive]
      ["." phase
       [macro (#+ Expander)]
+      [extension (#+ Extender)]
       ["." generation]]
      [default
       ["." platform (#+ Platform)]
@@ -79,7 +80,9 @@
       (#try.Failure error)
       (:: io.monad wrap (#try.Failure error)))))
 
-(def: #export (compiler target partial-host-extension expander host-analysis platform generation-bundle host-directive-bundle program service
+(def: #export (compiler target partial-host-extension
+                        expander host-analysis platform generation-bundle host-directive-bundle program extender
+                        service
                         packager,package)
   (All [anchor expression directive]
     (-> Text
@@ -90,6 +93,7 @@
         (generation.Bundle anchor expression directive)
         (directive.Bundle anchor expression directive)
         (-> expression directive)
+        Extender
         Service
         [(-> (generation.Output directive) Binary) Path]
         (IO Any)))
@@ -104,7 +108,7 @@
                            {(Platform IO anchor expression directive)
                             platform}
                            {(IO (Try (directive.State+ anchor expression directive)))
-                            (platform.initialize target expander host-analysis platform generation-bundle host-directive-bundle program)})
+                            (platform.initialize target expander host-analysis platform generation-bundle host-directive-bundle program extender)})
              [archive state] (:share [anchor expression directive]
                                      {(Platform IO anchor expression directive)
                                       platform}
-- 
cgit v1.2.3