diff options
| author | Eduardo Julian | 2021-09-03 21:51:30 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-09-03 21:51:30 -0400 |
| commit | 891b1cfc82322f8017f0a4f6b707d6fe52024545 (patch) | |
| tree | 957429c0a2ad850b3570492deabe054fb2ace63e /lux-scheme | |
| parent | e76add6e6f904677f5c09bb2a66dce283f1b848a (diff) | |
Unified tuple and record syntax.
Diffstat (limited to 'lux-scheme')
| -rw-r--r-- | lux-scheme/source/program.lux | 8 |
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) |