diff options
author | Eduardo Julian | 2021-09-04 12:49:52 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-09-04 12:49:52 -0400 |
commit | fc8bebd3b3c5f050ea92e72eecbd9f6df09f28db (patch) | |
tree | 24858adac0e67228620b7e9166e3b7335be9fd5a /stdlib/source/library/lux.lux | |
parent | 891b1cfc82322f8017f0a4f6b707d6fe52024545 (diff) |
De-taggification | part 2
Diffstat (limited to 'stdlib/source/library/lux.lux')
-rw-r--r-- | stdlib/source/library/lux.lux | 24 |
1 files changed, 12 insertions, 12 deletions
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) |