diff options
Diffstat (limited to 'stdlib/source/test/lux/macro/code.lux')
| -rw-r--r-- | stdlib/source/test/lux/macro/code.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/macro/code.lux b/stdlib/source/test/lux/macro/code.lux index 1a99aae83..5d5f9121a 100644 --- a/stdlib/source/test/lux/macro/code.lux +++ b/stdlib/source/test/lux/macro/code.lux @@ -87,10 +87,10 @@ (function (_ to_code) (do {! random.monad} [parts (..random_sequence replace_simulation)] - (wrap [(to_code (list\map product.left parts)) - (to_code (list\map product.right parts))]))))] + (in [(to_code (list\map product.left parts)) + (to_code (list\map product.right parts))]))))] ($_ random.either - (random\wrap [original substitute]) + (random\in [original substitute]) (do {! random.monad} [sample (random.only (|>> (\ /.equivalence = original) not) ($_ random.either @@ -102,15 +102,15 @@ (random\map /.text ..random_text) (random\map /.identifier ..random_name) (random\map /.tag ..random_name)))] - (wrap [sample sample])) + (in [sample sample])) (for_sequence /.form) (for_sequence /.tuple) (do {! random.monad} [parts (..random_sequence replace_simulation)] - (wrap [(/.record (let [parts' (list\map product.left parts)] - (list.zipped/2 parts' parts'))) - (/.record (let [parts' (list\map product.right parts)] - (list.zipped/2 parts' parts')))])) + (in [(/.record (let [parts' (list\map product.left parts)] + (list.zipped/2 parts' parts'))) + (/.record (let [parts' (list\map product.right parts)] + (list.zipped/2 parts' parts')))])) ))))) (def: for_format |