From 891b1cfc82322f8017f0a4f6b707d6fe52024545 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 3 Sep 2021 21:51:30 -0400
Subject: Unified tuple and record syntax.

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

(limited to 'lux-lua/source/program.lux')

diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux
index 0f153241d..a8e8c4e93 100644
--- a/lux-lua/source/program.lux
+++ b/lux-lua/source/program.lux
@@ -781,24 +781,24 @@
                           (do io.monad
                             [[baggage host] ..host]
                             (in [baggage
-                                 {#platform.&file_system (file.async file.default)
+                                 [#platform.&file_system (file.async file.default)
                                   #platform.host host
                                   #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))]])))]
   (for {@.old <jvm>
         @.jvm <jvm>
         @.lua (def: platform
                 (IO (Platform [Register _.Label] _.Expression _.Statement))
                 (do io.monad
                   [host ..host]
-                  (in {#platform.&file_system (file.async file.default)
+                  (in [#platform.&file_system (file.async file.default)
                        #platform.host host
                        #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)
@@ -819,10 +819,10 @@
                      @.lua platform}))
            ..platform]
           (exec (do async.monad
-                  [_ (/.compiler {#/static.host @.lua
+                  [_ (/.compiler [#/static.host @.lua
                                   #/static.host_module_extension extension
                                   #/static.target (/cli.target service)
-                                  #/static.artifact_extension extension}
+                                  #/static.artifact_extension extension]
                                  (for {@.old (..expander baggage)
                                        @.jvm (..expander baggage)
                                        @.lua ..expander})
-- 
cgit v1.2.3