From 376c3e472fbb1e2656f8c61b26e0276570609aa1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 13 Sep 2021 00:29:57 -0400
Subject: Updated only/except import syntax to take into account record =>
 variant syntax change.

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

(limited to 'stdlib/source/library/lux.lux')

diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux
index 8f8032699..7c97c8a7f 100644
--- a/stdlib/source/library/lux.lux
+++ b/stdlib/source/library/lux.lux
@@ -3254,14 +3254,14 @@
 (def: (referrals_parser tokens)
   (-> (List Code) (Meta [Referrals (List Code)]))
   (case tokens
-    (^or (^ (list& [_ {#Variant (list [_ {#Text "+"}] [_ {#Tuple defs}])}] tokens'))
-         (^ (list& [_ {#Variant (list [_ {#Text "only"}] [_ {#Tuple defs}])}] tokens')))
+    (^or (^ (list& [_ {#Variant (list& [_ {#Text "+"}] defs)}] tokens'))
+         (^ (list& [_ {#Variant (list& [_ {#Text "only"}] defs)}] tokens')))
     (do meta_monad
       [defs' (..referral_references defs)]
       (in [{#Only defs'} tokens']))
 
-    (^or (^ (list& [_ {#Variant (list [_ {#Text "-"}] [_ {#Tuple defs}])}] tokens'))
-         (^ (list& [_ {#Variant (list [_ {#Text "exclude"}] [_ {#Tuple defs}])}] tokens')))
+    (^or (^ (list& [_ {#Variant (list& [_ {#Text "-"}] defs)}] tokens'))
+         (^ (list& [_ {#Variant (list& [_ {#Text "exclude"}] defs)}] tokens')))
     (do meta_monad
       [defs' (..referral_references defs)]
       (in [{#Exclude defs'} tokens']))
@@ -4014,10 +4014,10 @@
                            (list (' "*"))
                            
                            {#Only defs}
-                           (list (variant$ (list (' "+") (tuple$ (list#each local_identifier$ defs)))))
+                           (list (variant$ (list& (' "+") (list#each local_identifier$ defs))))
                            
                            {#Exclude defs}
-                           (list (variant$ (list (' "-") (tuple$ (list#each local_identifier$ defs)))))
+                           (list (variant$ (list& (' "-") (list#each local_identifier$ defs))))
                            
                            {#Ignore}
                            (list)
-- 
cgit v1.2.3