diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/control/concurrency/actor.lux | 4 | ||||
-rw-r--r-- | stdlib/source/lux/control/concurrency/promise.lux | 4 | ||||
-rw-r--r-- | stdlib/source/lux/control/concurrency/semaphore.lux | 2 |
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 |