diff options
Diffstat (limited to 'stdlib/source/library/lux.lux')
| -rw-r--r-- | stdlib/source/library/lux.lux | 12 |
1 files changed, 6 insertions, 6 deletions
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) |