From 085c9a6ef151531cb01b842ed2f4366a49b78367 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 8 Sep 2021 23:14:59 -0400
Subject: De-bracing | part 2

---
 lux-lua/source/program.lux | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'lux-lua/source')

diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux
index 2bba13d08..1ff6e2e57 100644
--- a/lux-lua/source/program.lux
+++ b/lux-lua/source/program.lux
@@ -339,13 +339,13 @@
 
                                    #.None
                                    (exception.except ..cannot_apply_a_non_function (:as java/lang/Object macro)))))]
-  (for {@.old (as_is <jvm>)
+  (for [@.old (as_is <jvm>)
         @.jvm (as_is <jvm>)
 
         @.lua
         (def: (expander macro inputs lux)
           Expander
-          (#try.Success ((:as Macro' macro) inputs lux)))}))
+          (#try.Success ((:as Macro' macro) inputs lux)))]))
 
 (with_expansions [<jvm> (as_is (with_expansions [$var_args (_.var "...")
                                                  $str_rel_to_abs (_.var "_utf8_str_rel_to_abs")
@@ -586,7 +586,7 @@
                                               (do try.monad
                                                 [_ (run! content)]
                                                 (run! (_.return (_.var (reference.artifact context))))))))]))))]
-  (for {@.old (as_is <jvm>)
+  (for [@.old (as_is <jvm>)
         @.jvm (as_is <jvm>)
         @.lua (as_is (ffi.import: (load [ffi.String] "try" ffi.Function))
                      (def: host
@@ -625,7 +625,7 @@
                                  (def: (re_load context custom content)
                                    (do try.monad
                                      [_ (run! content)]
-                                     (run! (_.return (_.var (reference.artifact context))))))))))))}))
+                                     (run! (_.return (_.var (reference.artifact context))))))))))))]))
 
 (with_expansions [<jvm> (as_is (exception: .public (invaid_phase_application [partial_application (List Any)
                                                                               arity Nat])
@@ -755,22 +755,22 @@
                                            maybe.trusted
                                            (:as java/lang/Object)
                                            ..read)))))]
-  (for {@.old (as_is <jvm>)
+  (for [@.old (as_is <jvm>)
         @.jvm (as_is <jvm>)
 
         @.lua
         (def: (extender phase_wrapper handler)
           (-> phase.Wrapper Extender)
-          (:expected handler))}))
+          (:expected handler))]))
 
 (def: (phase_wrapper archive)
   (-> Archive (runtime.Operation phase.Wrapper))
   (do phase.monad
     []
     (in (:as phase.Wrapper
-             (for {@.old (..host_phase (list))
+             (for [@.old (..host_phase (list))
                    @.jvm (..host_phase (list))
-                   @.lua (|>>)})))))
+                   @.lua (|>>)])))))
 
 (with_expansions [<jvm> (def: platform
                           (IO [Baggage (Platform [Register _.Label] _.Expression _.Statement)])
@@ -783,7 +783,7 @@
                                   #platform.runtime runtime.generate
                                   #platform.phase_wrapper ..phase_wrapper
                                   #platform.write (|>> _.code (\ utf8.codec encoded))]])))]
-  (for {@.old <jvm>
+  (for [@.old <jvm>
         @.jvm <jvm>
         @.lua (def: platform
                 (IO (Platform [Register _.Label] _.Expression _.Statement))
@@ -794,7 +794,7 @@
                        #platform.phase lua.generate
                        #platform.runtime runtime.generate
                        #platform.phase_wrapper ..phase_wrapper
-                       #platform.write (|>> _.code (\ utf8.codec encoded))])))}))
+                       #platform.write (|>> _.code (\ utf8.codec encoded))])))]))
 
 (def: (program context program)
   (Program _.Expression _.Statement)
@@ -810,18 +810,18 @@
 (`` (program: [service /cli.service]
       (let [extension ".lua"]
         (do io.monad
-          [(~~ (for {@.old [baggage platform]
+          [(~~ (for [@.old [baggage platform]
                      @.jvm [baggage platform]
-                     @.lua platform}))
+                     @.lua platform]))
            ..platform]
           (exec (do async.monad
                   [_ (/.compiler [#/static.host @.lua
                                   #/static.host_module_extension extension
                                   #/static.target (/cli.target service)
                                   #/static.artifact_extension extension]
-                                 (for {@.old (..expander baggage)
+                                 (for [@.old (..expander baggage)
                                        @.jvm (..expander baggage)
-                                       @.lua ..expander})
+                                       @.lua ..expander])
                                  analysis.bundle
                                  (io.io platform)
                                  generation.bundle
@@ -830,9 +830,9 @@
                                  [(type [Register _.Label])
                                   _.Expression
                                   _.Statement]
-                                 (for {@.old (..extender baggage)
+                                 (for [@.old (..extender baggage)
                                        @.jvm (..extender baggage)
-                                       @.lua ..extender})
+                                       @.lua ..extender])
                                  service
                                  [(packager.package (_.manual "")
                                                     _.code
-- 
cgit v1.2.3