diff options
Diffstat (limited to 'stdlib/source/test/lux/meta/macro/syntax/definition.lux')
| -rw-r--r-- | stdlib/source/test/lux/meta/macro/syntax/definition.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/test/lux/meta/macro/syntax/definition.lux b/stdlib/source/test/lux/meta/macro/syntax/definition.lux index 28aa3653d..929f841d6 100644 --- a/stdlib/source/test/lux/meta/macro/syntax/definition.lux +++ b/stdlib/source/test/lux/meta/macro/syntax/definition.lux @@ -68,7 +68,7 @@ untyped_value $////code.random] (all _.and (_.coverage [/.format /.parser] - (case (<code>.result (/.parser compiler) + (when (<code>.result (/.parser compiler) (list (/.format expected))) {try.#Failure error} false @@ -77,7 +77,7 @@ (at /.equivalence = expected actual))) (_.coverage [/.typed] (let [expected (has /.#value {.#Left [type untyped_value]} expected)] - (case (<code>.result (/.typed compiler) + (when (<code>.result (/.typed compiler) (list (/.format expected))) {try.#Failure error} false @@ -86,7 +86,7 @@ (at /.equivalence = expected actual)))) (_.coverage [/.lacks_type] (let [expected (has /.#value {.#Right untyped_value} expected)] - (case (<code>.result (/.typed compiler) + (when (<code>.result (/.typed compiler) (list (/.format expected))) {try.#Failure error} (exception.match? /.lacks_type error) |