aboutsummaryrefslogtreecommitdiff
path: root/lux-scheme
diff options
context:
space:
mode:
Diffstat (limited to 'lux-scheme')
-rw-r--r--lux-scheme/source/program.lux10
1 files changed, 5 insertions, 5 deletions
diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index 3bbac2cf6..5d37f6fbc 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/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
@@ -384,7 +384,7 @@
(wrap [global value definition]))))
(def: (ingest context content)
- (|> content (\ encoding.utf8 decoded) try.trusted (:as _.Expression)))
+ (|> content (# encoding.utf8 decoded) try.trusted (:as _.Expression)))
(def: (re_learn context content)
(run! content))
@@ -403,7 +403,7 @@
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)
@@ -446,7 +446,7 @@
(def: (declare_success! _)
(-> Any (Promise Any))
- (promise.future (\ world/program.default exit +0)))
+ (promise.future (# world/program.default exit +0)))
(`` (program: [service /cli.service]
(let [extension ".scm"]
@@ -469,7 +469,7 @@
service
[(packager.package now)
(format (/cli.target service)
- (\ file.default separator)
+ (# file.default separator)
"program.tar")])]
(..declare_success! []))
(io.io []))))))