diff options
Diffstat (limited to 'stdlib/source/specification/compositor/generation/function.lux')
| -rw-r--r-- | stdlib/source/specification/compositor/generation/function.lux | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/stdlib/source/specification/compositor/generation/function.lux b/stdlib/source/specification/compositor/generation/function.lux index 6d0f8d541..61f6d6656 100644 --- a/stdlib/source/specification/compositor/generation/function.lux +++ b/stdlib/source/specification/compositor/generation/function.lux @@ -24,7 +24,9 @@ [// [common (#+ Runner)]]]) -(def: max-arity Arity 10) +(def: max-arity + Arity + 10) (def: arity (Random Arity) @@ -39,11 +41,11 @@ (do r.monad [arity ..arity local (..local arity)] - (wrap [arity local - (synthesis.function/abstraction - {#synthesis.environment (list) - #synthesis.arity arity - #synthesis.body (synthesis.variable/local local)})]))) + (in [arity local + (synthesis.function/abstraction + {#synthesis.environment (list) + #synthesis.arity arity + #synthesis.body (synthesis.variable/local local)})]))) (def: #export (spec run) (-> Runner Test) |