From 9e7ddacf853efd7a18c1911d2f287d483b083229 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 3 Jul 2022 00:35:32 -0400
Subject: Added a new custom type for pattern-matching macros.

---
 lux-lua/source/program.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lux-lua')

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
-- 
cgit v1.2.3