From db697bb636e2341d26bb188cc1b9981a1ab505d7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 7 May 2017 14:30:48 -0400
Subject: - Changed the name of "let%" to "with-expansions".

---
 new-luxc/source/luxc/io.jvm.lux | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

(limited to 'new-luxc/source/luxc/io.jvm.lux')

diff --git a/new-luxc/source/luxc/io.jvm.lux b/new-luxc/source/luxc/io.jvm.lux
index ab62b8f43..18142e77a 100644
--- a/new-luxc/source/luxc/io.jvm.lux
+++ b/new-luxc/source/luxc/io.jvm.lux
@@ -67,24 +67,25 @@
   (-> (List &;Path) Text (P;Promise (E;Error [&;Path Text])))
   (let [host-path (format module-name host-extension ".lux")
         lux-path (format module-name ".lux")]
-    (let% [<tries> (do-template [<path>]
-                     [(do P;Monad<Promise>
-                        [?file (find-in-sources <path> source-dirs)])
-                      (case ?file
-                        (#;Some file)
-                        (do @
-                          [?code (read-source-code file)]
-                          (case ?code
-                            (#E;Error error)
-                            (wrap (#E;Error error))
-
-                            (#E;Success code)
-                            (wrap (#E;Success [<path> code]))))
-
-                        #;None)]
-
-                     [host-path]
-                     [lux-path])]
+    (with-expansions
+      [<tries> (do-template [<path>]
+                 [(do P;Monad<Promise>
+                    [?file (find-in-sources <path> source-dirs)])
+                  (case ?file
+                    (#;Some file)
+                    (do @
+                      [?code (read-source-code file)]
+                      (case ?code
+                        (#E;Error error)
+                        (wrap (#E;Error error))
+
+                        (#E;Success code)
+                        (wrap (#E;Success [<path> code]))))
+
+                    #;None)]
+
+                 [host-path]
+                 [lux-path])]
       (<| <tries>
           (wrap (#E;Error (format "Module cannot be found: " module-name)))))))
 
-- 
cgit v1.2.3