aboutsummaryrefslogtreecommitdiff
path: root/lux-scheme/source
diff options
context:
space:
mode:
authorEduardo Julian2021-09-03 21:51:30 -0400
committerEduardo Julian2021-09-03 21:51:30 -0400
commit891b1cfc82322f8017f0a4f6b707d6fe52024545 (patch)
tree957429c0a2ad850b3570492deabe054fb2ace63e /lux-scheme/source
parente76add6e6f904677f5c09bb2a66dce283f1b848a (diff)
Unified tuple and record syntax.
Diffstat (limited to 'lux-scheme/source')
-rw-r--r--lux-scheme/source/program.lux8
1 files changed, 4 insertions, 4 deletions
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)