Some fixes for the scripting languages.

+ Small optimizations for pattern-matching generation.

1 files changed, 4 insertions, 3 deletions

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 7d058ec0e..7db076162 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -78,9 +78,10 @@
       (#error.Failure error)
       (:: io.monad wrap (#error.Failure error)))))
 
-(def: #export (compiler expander platform generation-bundle host-statement-bundle program service)
+(def: #export (compiler target expander platform generation-bundle host-statement-bundle program service)
   (All [anchor expression statement]
-    (-> Expander
+    (-> Text
+        Expander
         (IO (Platform IO anchor expression statement))
         (generation.Bundle anchor expression statement)
         (statement.Bundle anchor expression statement)
@@ -98,7 +99,7 @@
                            {(Platform IO anchor expression statement)
                             platform}
                            {(IO (Error (statement.State+ anchor expression statement)))
-                            (platform.initialize expander platform generation-bundle host-statement-bundle program)})
+                            (platform.initialize target expander platform generation-bundle host-statement-bundle program)})
              [archive state] (:share [anchor expression statement]
                                      {(Platform IO anchor expression statement)
                                       platform}