diff options
| author | Eduardo Julian | 2019-03-30 21:45:45 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-03-30 21:45:45 -0400 |
| commit | 118895081d97279a796cc704e6c23bf92ed79e5e (patch) | |
| tree | 1ea654e3f913bfc5f978bba46620c535e7a4a7bc /stdlib/source/test/lux/compiler/default/phase | |
| parent | 5009bfaa56119a58e675a1e6008623790b54cc1c (diff) | |
Re-named "do-template" to "template".
Diffstat (limited to 'stdlib/source/test/lux/compiler/default/phase')
5 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/test/lux/compiler/default/phase/analysis/primitive.lux b/stdlib/source/test/lux/compiler/default/phase/analysis/primitive.lux index 0c716dd3f..e60a7c40c 100644 --- a/stdlib/source/test/lux/compiler/default/phase/analysis/primitive.lux +++ b/stdlib/source/test/lux/compiler/default/phase/analysis/primitive.lux @@ -40,7 +40,7 @@ (def: #export primitive (r.Random [Type Code]) (`` ($_ r.either - (~~ (do-template [<type> <code-wrapper> <value-gen>] + (~~ (template [<type> <code-wrapper> <value-gen>] [(r.and (r;wrap <type>) (r;map <code-wrapper> <value-gen>))] [Any code.tuple (r.list 0 ..unit)] @@ -80,7 +80,7 @@ #0))) (<| (times 100) (`` ($_ seq - (~~ (do-template [<desc> <type> <tag> <random> <constructor>] + (~~ (template [<desc> <type> <tag> <random> <constructor>] [(do @ [sample <random>] (test (format "Can analyse " <desc> ".") diff --git a/stdlib/source/test/lux/compiler/default/phase/analysis/procedure/common.lux b/stdlib/source/test/lux/compiler/default/phase/analysis/procedure/common.lux index 7d83f00c8..8b5308a5d 100644 --- a/stdlib/source/test/lux/compiler/default/phase/analysis/procedure/common.lux +++ b/stdlib/source/test/lux/compiler/default/phase/analysis/procedure/common.lux @@ -29,7 +29,7 @@ [/// ["_." primitive]]) -(do-template [<name> <success> <failure>] +(template [<name> <success> <failure>] [(def: (<name> procedure params output-type) (-> Text (List Code) Type Bit) (|> (scope.with-scope "" diff --git a/stdlib/source/test/lux/compiler/default/phase/analysis/reference.lux b/stdlib/source/test/lux/compiler/default/phase/analysis/reference.lux index 4cf1f9da0..a73e6c3cb 100644 --- a/stdlib/source/test/lux/compiler/default/phase/analysis/reference.lux +++ b/stdlib/source/test/lux/compiler/default/phase/analysis/reference.lux @@ -30,7 +30,7 @@ (type: Check (-> (Error Any) Bit)) -(do-template [<name> <on-success> <on-failure>] +(template [<name> <on-success> <on-failure>] [(def: <name> Check (|>> (case> (#error.Success _) diff --git a/stdlib/source/test/lux/compiler/default/phase/analysis/structure.lux b/stdlib/source/test/lux/compiler/default/phase/analysis/structure.lux index 6d575fd08..186c961e9 100644 --- a/stdlib/source/test/lux/compiler/default/phase/analysis/structure.lux +++ b/stdlib/source/test/lux/compiler/default/phase/analysis/structure.lux @@ -33,7 +33,7 @@ [// ["_." primitive]]) -(do-template [<name> <on-success> <on-error>] +(template [<name> <on-success> <on-error>] [(def: #export <name> (All [a] (-> (Operation a) Bit)) (|>> (phase.run _primitive.state) diff --git a/stdlib/source/test/lux/compiler/default/phase/synthesis/primitive.lux b/stdlib/source/test/lux/compiler/default/phase/synthesis/primitive.lux index 87dccc9f5..d6bb57789 100644 --- a/stdlib/source/test/lux/compiler/default/phase/synthesis/primitive.lux +++ b/stdlib/source/test/lux/compiler/default/phase/synthesis/primitive.lux @@ -77,7 +77,7 @@ |frac| r.frac |text| (r.unicode 5)] (`` ($_ seq - (~~ (do-template [<desc> <analysis> <synthesis> <sample>] + (~~ (template [<desc> <analysis> <synthesis> <sample>] [(test (format "Can synthesize " <desc> ".") (|> (#analysis.Primitive (<analysis> <sample>)) expression.phase |