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-cl/source/program.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lux-cl')

diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index 3b52fcdd2..55ea81ec4 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -337,11 +337,11 @@
   (IO (Platform [_.Tag Register] (_.Expression Any) (_.Expression Any)))
   (do io.monad
     [host ..host]
-    (wrap {#platform.&file_system (file.async file.default)
+    (wrap [#platform.&file_system (file.async file.default)
            #platform.host host
            #platform.phase common_lisp.generate
            #platform.runtime runtime.generate
-           #platform.write (|>> _.code (\ encoding.utf8 encoded))})))
+           #platform.write (|>> _.code (\ encoding.utf8 encoded))])))
 
 (def: get_ecl_cli_inputs
   (let [@idx (_.var "i")]
@@ -411,10 +411,10 @@
         (do io.monad
           [platform ..platform]
           (exec (do promise.monad
-                  [_ (/.compiler {#/static.host @.common_lisp
+                  [_ (/.compiler [#/static.host @.common_lisp
                                   #/static.host_module_extension extension
                                   #/static.target (/cli.target service)
-                                  #/static.artifact_extension extension}
+                                  #/static.artifact_extension extension]
                                  ..expander
                                  analysis.bundle
                                  (io.io platform)
-- 
cgit v1.2.3