aboutsummaryrefslogtreecommitdiff
path: root/lux-cl/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-cl/source')
-rw-r--r--lux-cl/source/program.lux10
1 files changed, 5 insertions, 5 deletions
diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index ab1df4ea8..105e6c223 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -14,7 +14,7 @@
[concurrency
["[0]" promise {"+" [Promise]}]]]
[data
- ["[0]" text ("[1]\[0]" hash)
+ ["[0]" text ("[1]#[0]" hash)
["%" format {"+" [format]}]
["[0]" encoding]]
[collection
@@ -323,7 +323,7 @@
(wrap [global value definition]))))
(def: (ingest context content)
- (|> content (\ encoding.utf8 decoded) try.trusted (:as (_.Expression Any))))
+ (|> content (# encoding.utf8 decoded) try.trusted (:as (_.Expression Any))))
(def: (re_learn context content)
(run! content))
@@ -342,7 +342,7 @@
platform.#host host
platform.#phase common_lisp.generate
platform.#runtime runtime.generate
- platform.#write (|>> _.code (\ encoding.utf8 encoded))])))
+ platform.#write (|>> _.code (# encoding.utf8 encoded))])))
(def: get_ecl_cli_inputs
(let [@idx (_.var "i")]
@@ -391,7 +391,7 @@
(def: (declare_success! _)
(-> Any (Promise Any))
- (promise.future (\ world/program.default exit +0)))
+ (promise.future (# world/program.default exit +0)))
(def: (then pre post)
(-> (_.Expression Any) (_.Expression Any) (_.Expression Any))
@@ -430,7 +430,7 @@
..then
..scope)
(format (/cli.target service)
- (\ file.default separator)
+ (# file.default separator)
"program"
extension)])]
(..declare_success! []))