aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex
diff options
context:
space:
mode:
authorEduardo Julian2022-07-02 05:38:27 -0400
committerEduardo Julian2022-07-02 05:38:27 -0400
commitb96beb587c11fcfbce86ce2d62351600cf6cad1b (patch)
treec9a558ab1391ac97cb11e8777ea78299f1ab5555 /stdlib/source/program/aedifex
parent104130efba46a875eba566384578f8aa8593ad37 (diff)
More traditional names for unquoting macros.
Diffstat (limited to 'stdlib/source/program/aedifex')
-rw-r--r--stdlib/source/program/aedifex/format.lux46
-rw-r--r--stdlib/source/program/aedifex/runtime.lux4
2 files changed, 25 insertions, 25 deletions
diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux
index 7be3a1752..5ba5ab385 100644
--- a/stdlib/source/program/aedifex/format.lux
+++ b/stdlib/source/program/aedifex/format.lux
@@ -28,9 +28,9 @@
(def (license [name url type])
(Format /.License)
- (`' [#name (~ (code.text name))
- #url (~ (code.text url))
- #type (~ (case type
+ (`' [#name (, (code.text name))
+ #url (, (code.text url))
+ #type (, (case type
{/.#Repo}
(' "repo")
@@ -39,20 +39,20 @@
(def (organization [name url])
(Format /.Organization)
- (`' [#name (~ (code.text name))
- #url (~ (code.text url))]))
+ (`' [#name (, (code.text name))
+ #url (, (code.text url))]))
(def (developer [name url organization])
(Format /.Developer)
(case organization
{.#None}
- (`' [#name (~ (code.text name))
- #url (~ (code.text url))])
+ (`' [#name (, (code.text name))
+ #url (, (code.text url))])
{.#Some value}
- (`' [#name (~ (code.text name))
- #url (~ (code.text url))
- #organization (~ (..organization value))])))
+ (`' [#name (, (code.text name))
+ #url (, (code.text url))
+ #organization (, (..organization value))])))
(def contributor
(Format /.Contributor)
@@ -91,7 +91,7 @@
aggregate
value
- (dictionary.has field (` [(~+ (list#each format value))]) aggregate)))
+ (dictionary.has field (` [(,* (list#each format value))]) aggregate)))
(def (on_set field value format aggregate)
(All (_ a)
@@ -133,28 +133,28 @@
(def (artifact value)
(Format Artifact)
- (` [(~+ (..artifact' value))]))
+ (` [(,* (..artifact' value))]))
(def (dependency [artifact type])
(Format Dependency)
(if (text#= //artifact/type.lux_library type)
- (` [(~+ (..artifact' artifact))])
- (` [(~+ (..artifact' artifact))
- (~ (code.text type))])))
+ (` [(,* (..artifact' artifact))])
+ (` [(,* (..artifact' artifact))
+ (, (code.text type))])))
(def (runtime [environment program parameters])
(Format Runtime)
- (` [(~+ (list#each (function (_ [var value])
- (` [(~ (code.text var))
- (~ (code.text value))]))
+ (` [(,* (list#each (function (_ [var value])
+ (` [(, (code.text var))
+ (, (code.text value))]))
(dictionary.entries environment)))
- (~ (code.text program))
- (~+ (list#each code.text parameters))]))
+ (, (code.text program))
+ (,* (list#each code.text parameters))]))
(def (compiler [definition parameters])
(Format Compiler)
- (` [(~ (code.symbol definition))
- (~+ (list#each code.text parameters))]))
+ (` [(, (code.symbol definition))
+ (,* (list#each code.text parameters))]))
(def .public lux_compiler_label
"lux")
@@ -174,7 +174,7 @@
(..on_maybe "program" (the /.#program value) code.text)
(..on_maybe "test" (the /.#test value) code.text)
(..on_dictionary "deploy_repositories" (the /.#deploy_repositories value) code.text code.text)
- (~~ (with_template [<tag>]
+ (,, (with_template [<tag>]
[(dictionary.has (template.text [<tag>]) (..runtime (the <tag> value)))]
[/.#java]
diff --git a/stdlib/source/program/aedifex/runtime.lux b/stdlib/source/program/aedifex/runtime.lux
index 6b0a9dbc9..981ca9b12 100644
--- a/stdlib/source/program/aedifex/runtime.lux
+++ b/stdlib/source/program/aedifex/runtime.lux
@@ -32,9 +32,9 @@
(with_template [<name> <command> <environment> <parameters>]
[(def .public <name>
Runtime
- [#environment (dictionary.of_list text.hash (`` (list (~~ (template.spliced <environment>)))))
+ [#environment (dictionary.of_list text.hash (`` (list (,, (template.spliced <environment>)))))
#program <command>
- #parameters (`` (list (~~ (template.spliced <parameters>))))])]
+ #parameters (`` (list (,, (template.spliced <parameters>))))])]
[default_java "java" [] ["-Xss16m" "--add-opens" "java.base/java.lang=ALL-UNNAMED" "-jar"]]
[default_js "node" [] ["--stack_size=8192"]]