diff options
author | Eduardo Julian | 2021-07-27 03:51:10 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-07-27 03:51:10 -0400 |
commit | 061fd8a209bbcaffc2bfb850ac6046752a567d50 (patch) | |
tree | 8cd83ad7d0bc06ded7976eb5420467e485733ae8 /stdlib/source/specification/compositor/generation/case.lux | |
parent | e64b6d0114c26a455e19a416b5f02a4d19dd711f (diff) |
Re-named wrap => in && unwrap => out.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/specification/compositor/generation/case.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/specification/compositor/generation/case.lux b/stdlib/source/specification/compositor/generation/case.lux index 81e6f5988..d18d6b461 100644 --- a/stdlib/source/specification/compositor/generation/case.lux +++ b/stdlib/source/specification/compositor/generation/case.lux @@ -52,13 +52,13 @@ (`` ($_ r.either (do r.monad [value r.i64] - (wrap [(synthesis.i64 value) - synthesis.path/pop])) + (in [(synthesis.i64 value) + synthesis.path/pop])) (~~ (template [<gen> <synth> <path>] [(do r.monad [value <gen>] - (wrap [(<synth> value) - (<path> value)]))] + (in [(<synth> value) + (<path> value)]))] [r.bit synthesis.bit synthesis.path/bit] [r.i64 synthesis.i64 synthesis.path/i64] @@ -78,7 +78,7 @@ (synthesis.member/right idx) (synthesis.member/left idx)) subP)]] - (wrap [caseS caseP])) + (in [caseS caseP])) (do {! r.monad} [size ..size idx (|> r.nat (\ ! map (n.% size))) @@ -93,7 +93,7 @@ (synthesis.side/right idx) (synthesis.side/left idx)) subP)]] - (wrap [caseS caseP])) + (in [caseS caseP])) )))) (def: (let-spec run) |