diff options
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) |