aboutsummaryrefslogtreecommitdiff
path: root/lux-lua
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lux-lua/source/program.lux12
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