diff options
Diffstat (limited to '')
-rw-r--r-- | lux-lua/source/program.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux index 7b13d2d9d..75ba9a99c 100644 --- a/lux-lua/source/program.lux +++ b/lux-lua/source/program.lux @@ -296,11 +296,11 @@ (loop (again [lux_function abstraction input/* input/*]) (`` (`` (case input/* - (pattern (list)) + (list) (in self) (,, (with_template [<arity>] - [(pattern (list (,, (static.literals function.identity (..input/* <arity>))))) + [(list (,, (static.literals function.identity (..input/* <arity>)))) (in (to_host ((as (,, (static.literal function.identity (..function/* <arity>))) lux_function) (,, (static.literals function.identity (..input/* <arity>))))))] @@ -312,7 +312,7 @@ [5] )) - (pattern (list.partial (,, (static.literals function.identity (..input/* 5))) input/+)) + (list.partial (,, (static.literals function.identity (..input/* 5))) input/+) (again ((as (,, (static.literal function.identity (..function/* 5))) lux_function) (,, (static.literals function.identity (..input/* 5)))) @@ -397,7 +397,7 @@ (case (ffi.as net/sandius/rembulan/ByteString field) {.#Some field} (case (ffi.of_string (net/sandius/rembulan/ByteString::decode field)) - (pattern (static runtime.variant_tag_field)) + (static runtime.variant_tag_field) (case (array.item 0 value) {.#Some it} (|> it @@ -407,7 +407,7 @@ {.#None} (undefined)) - (pattern (static runtime.variant_flag_field)) + (static runtime.variant_flag_field) (case (array.item 1 value) {.#Some _} (as java/lang/Object "") @@ -415,7 +415,7 @@ {.#None} (ffi.null)) - (pattern (static runtime.variant_value_field)) + (static runtime.variant_value_field) (|> value (array.item 2) maybe.trusted |