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/project.lux | 4 ++-- lux-lua/source/program.lux | 12 ++++++------ 2 files changed, 8 insertions(+), 8 deletions(-) (limited to 'lux-lua') diff --git a/lux-lua/project.lux b/lux-lua/project.lux index 855257f3f..4d0c10a35 100644 --- a/lux-lua/project.lux +++ b/lux-lua/project.lux @@ -1,5 +1,5 @@ {"" - {#identity ["com.github.luxlang" "lux-lua" "0.6.0-SNAPSHOT"] + [#identity ["com.github.luxlang" "lux-lua" "0.6.0-SNAPSHOT"] #deploy_repositories {"snapshots" "https://oss.sonatype.org/content/repositories/snapshots/" "releases" "https://oss.sonatype.org/service/local/staging/deploy/maven2/"} @@ -13,4 +13,4 @@ ["net.sandius.rembulan" "rembulan-stdlib" "0.1-SNAPSHOT" "jar"] ["net.sandius.rembulan" "rembulan-compiler" "0.1-SNAPSHOT" "jar"]] - #program "program"}} + #program "program"]} 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 @.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