From 7ee04017ee2ef5376c566b00750fd521c0ecac42 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 14 Jun 2019 23:38:53 -0400
Subject: Some fixes for the scripting languages.

+ Small optimizations for pattern-matching generation.---
 stdlib/source/program/compositor.lux | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program')

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}
-- 
cgit v1.2.3