diff options
Diffstat (limited to 'stdlib/source/specification/compositor/analysis')
| -rw-r--r-- | stdlib/source/specification/compositor/analysis/type.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/specification/compositor/analysis/type.lux b/stdlib/source/specification/compositor/analysis/type.lux index 7cbd5884b..4db867513 100644 --- a/stdlib/source/specification/compositor/analysis/type.lux +++ b/stdlib/source/specification/compositor/analysis/type.lux @@ -23,8 +23,8 @@ (def: (check-success+ expander state extension params output-type) (-> Expander State+ Text (List Code) Type Bit) (|> (analysis/scope.with-scope "" - (analysis/type.with-type output-type - (analysis.phase expander (` ((~ (code.text extension)) (~+ params)))))) + (analysis/type.with-type output-type + (analysis.phase expander (` ((~ (code.text extension)) (~+ params)))))) (phase.run state) (case> (#try.Success _) true @@ -38,9 +38,9 @@ (~~ (template [<random> <type> <code>] [(do r.monad [value <random>] - (wrap [(` <type>) - <type> - (<code> value)]))] + (in [(` <type>) + <type> + (<code> value)]))] [r.bit (0 #0 "#Bit" (0 #0)) code.bit] [r.nat (0 #0 "#I64" (0 #1 (0 #0 "#Nat" (0 #0)) (0 #0))) code.nat] |