From de8af6044d590354563f4ea8849d98e8637c034a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 16 Feb 2022 04:41:41 -0400
Subject: FIXED loop binding initialization in several back-ends.

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

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 4e0599859..b398f85e3 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -8,6 +8,7 @@
     ["[0]" monad {"+" do}]]
    [control
     ["[0]" io {"+" IO io}]
+    ["[0]" maybe]
     ["[0]" try {"+" Try}]
     [concurrency
      ["[0]" async {"+" Async} ("[1]#[0]" monad)]]]
@@ -174,7 +175,9 @@
                host_dependencies (..load_host_dependencies (value@ platform.#&file_system platform) compilation_host_dependencies)
                _ (..package! (for [@.old (file.async file.default)
                                    @.jvm (file.async file.default)
-                                   @.js file.default])
+                                   ... TODO: Handle this in a safer manner.
+                                   ... This would crash if the compiler was run on a browser.
+                                   @.js (maybe.trusted file.default)])
                              host_dependencies
                              packager,package
                              static
-- 
cgit v1.2.3