aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/control/concurrency
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/control/concurrency/actor.lux4
-rw-r--r--stdlib/source/lux/control/concurrency/promise.lux4
-rw-r--r--stdlib/source/lux/control/concurrency/semaphore.lux2
3 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/control/concurrency/actor.lux b/stdlib/source/lux/control/concurrency/actor.lux
index 92cf0207e..133144a83 100644
--- a/stdlib/source/lux/control/concurrency/actor.lux
+++ b/stdlib/source/lux/control/concurrency/actor.lux
@@ -158,7 +158,7 @@
(promise.resolved (ex.throw ..poisoned [])))
actor))
-(do-template [<with> <resolve> <tag> <desc>]
+(template [<with> <resolve> <tag> <desc>]
[(def: #export (<with> name)
(-> Name cs.Annotations cs.Annotations)
(|>> (#.Cons [(name-of <tag>)
@@ -184,7 +184,7 @@
(p.either (s.form (p.and s.local-identifier (p.some s.local-identifier)))
(p.and s.local-identifier (:: p.monad wrap (list)))))
-(do-template [<name> <desc>]
+(template [<name> <desc>]
[(def: #export <name>
(-> Text Text)
(|>> (format <desc> "@")))]
diff --git a/stdlib/source/lux/control/concurrency/promise.lux b/stdlib/source/lux/control/concurrency/promise.lux
index 72fe34bcb..fa8acc6d9 100644
--- a/stdlib/source/lux/control/concurrency/promise.lux
+++ b/stdlib/source/lux/control/concurrency/promise.lux
@@ -126,7 +126,7 @@
(All [a b] (-> (Promise a) (Promise b) (Promise (| a b))))
(let [[a|b resolve] (..promise [])]
(with-expansions
- [<sides> (do-template [<promise> <tag>]
+ [<sides> (template [<promise> <tag>]
[(io.run (await (|>> <tag> resolve) <promise>))]
[left #.Left]
@@ -139,7 +139,7 @@
{#.doc "Homogeneous alternative combinator."}
(All [a] (-> (Promise a) (Promise a) (Promise a)))
(let [[left||right resolve] (..promise [])]
- (`` (exec (~~ (do-template [<promise>]
+ (`` (exec (~~ (template [<promise>]
[(io.run (await resolve <promise>))]
[left]
diff --git a/stdlib/source/lux/control/concurrency/semaphore.lux b/stdlib/source/lux/control/concurrency/semaphore.lux
index ddc73b300..2bc5be651 100644
--- a/stdlib/source/lux/control/concurrency/semaphore.lux
+++ b/stdlib/source/lux/control/concurrency/semaphore.lux
@@ -125,7 +125,7 @@
(recur (inc step)))
(:: promise.monad wrap []))))
- (do-template [<phase> <update> <goal> <turnstile>]
+ (template [<phase> <update> <goal> <turnstile>]
[(def: (<phase> (^:representation barrier))
(-> Barrier (Promise Any))
(do promise.monad