From fc8bebd3b3c5f050ea92e72eecbd9f6df09f28db Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 4 Sep 2021 12:49:52 -0400
Subject: De-taggification | part 2

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

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

diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux
index e9b07fe8f..7fad8a9a5 100644
--- a/stdlib/source/library/lux.lux
+++ b/stdlib/source/library/lux.lux
@@ -3745,30 +3745,30 @@
                      (in_meta name)
 
                      _
-                     (failure "#only/#+ and #exclude/#- require identifiers."))))
+                     (failure "only/+ and exclude/- require identifiers."))))
               defs))
 
 (def: (referrals_parser tokens)
   (-> (List Code) (Meta [Referrals (List Code)]))
   (case tokens
-    (^or (^ (list& [_ (#Form (list& [_ (#Tag ["" "+"])] defs))] tokens'))
-         (^ (list& [_ (#Form (list& [_ (#Tag ["" "only"])] defs))] tokens')))
+    (^or (^ (list& [_ (#Record (list [[_ (#Text "+")] [_ (#Tuple defs)]]))] tokens'))
+         (^ (list& [_ (#Record (list [[_ (#Text "only")] [_ (#Tuple defs)]]))] tokens')))
     (do meta_monad
       [defs' (..referral_references defs)]
       (in [(#Only defs') tokens']))
 
-    (^or (^ (list& [_ (#Form (list& [_ (#Tag ["" "-"])] defs))] tokens'))
-         (^ (list& [_ (#Form (list& [_ (#Tag ["" "exclude"])] defs))] tokens')))
+    (^or (^ (list& [_ (#Record (list [[_ (#Text "-")] [_ (#Tuple defs)]]))] tokens'))
+         (^ (list& [_ (#Record (list [[_ (#Text "exclude")] [_ (#Tuple defs)]]))] tokens')))
     (do meta_monad
       [defs' (..referral_references defs)]
       (in [(#Exclude defs') tokens']))
 
-    (^or (^ (list& [_ (#Tag ["" "*"])] tokens'))
-         (^ (list& [_ (#Tag ["" "all"])] tokens')))
+    (^or (^ (list& [_ (#Text "*")] tokens'))
+         (^ (list& [_ (#Text "all")] tokens')))
     (in_meta [#All tokens'])
 
-    (^or (^ (list& [_ (#Tag ["" "_"])] tokens'))
-         (^ (list& [_ (#Tag ["" "ignore"])] tokens')))
+    (^or (^ (list& [_ (#Text "_")] tokens'))
+         (^ (list& [_ (#Text "ignore")] tokens')))
     (in_meta [#Ignore tokens'])
     
     _
@@ -4501,13 +4501,13 @@
         localizations (: (List Code)
                          (case r_defs
                            #All
-                           (list (' #*))
+                           (list (' "*"))
                            
                            (#Only defs)
-                           (list (form$ (list& (' #+) (list\each local_identifier$ defs))))
+                           (list (record$ (list [(' "+") (tuple$ (list\each local_identifier$ defs))])))
                            
                            (#Exclude defs)
-                           (list (form$ (list& (' #-) (list\each local_identifier$ defs))))
+                           (list (record$ (list [(' "-") (tuple$ (list\each local_identifier$ defs))])))
                            
                            #Ignore
                            (list)
-- 
cgit v1.2.3