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

(limited to 'lux-scheme')

diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index 3371bb506..4e261a4de 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -395,11 +395,11 @@
   (IO (Platform _.Var _.Expression _.Expression))
   (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 scheme.generate
            #platform.runtime runtime.generate
-           #platform.write (|>> _.code (\ encoding.utf8 encoded))})))
+           #platform.write (|>> _.code (\ encoding.utf8 encoded))])))
 
 (def: (program context program)
   (Program _.Expression _.Expression)
@@ -450,10 +450,10 @@
           [platform ..platform
            now instant.now]
           (exec (do promise.monad
-                  [_ (/.compiler {#/static.host @.scheme
+                  [_ (/.compiler [#/static.host @.scheme
                                   #/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