diff options
| author | Eduardo Julian | 2022-07-03 00:35:32 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-03 00:35:32 -0400 |
| commit | 9e7ddacf853efd7a18c1911d2f287d483b083229 (patch) | |
| tree | 140eee091b7453879f072a48044635d03aa5096b /lux-lua/source | |
| parent | 7e4c9ba2e02f06fa621ffe24bc0ca046536429ef (diff) | |
Added a new custom type for pattern-matching macros.
Diffstat (limited to 'lux-lua/source')
| -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 |