diff options
Diffstat (limited to '')
| -rw-r--r-- | source/lux.lux (renamed from input/lux.lux) | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/input/lux.lux b/source/lux.lux index 61d99396c..50f8f1af2 100644 --- a/input/lux.lux +++ b/source/lux.lux @@ -1880,7 +1880,7 @@ (deftype Referrals (| #All (#Only (List Text)) - (#Except (List Text)) + (#Exclude (List Text)) #Nothing)) (deftype Import @@ -1896,7 +1896,7 @@ (return name) _ - (fail "only/except requires symbols.")))) + (fail "only/exclude requires symbols.")))) defs)) (def (parse-alias tokens) @@ -1921,10 +1921,10 @@ [defs' (extract-defs defs)] (return (: (, Referrals (List Syntax)) [(#Only defs') tokens']))) - (\ (#Meta [_ (#FormS (list& (#Meta [_ (#TagS ["" "except"])]) defs))])) + (\ (#Meta [_ (#FormS (list& (#Meta [_ (#TagS ["" "exclude"])]) defs))])) (do Lux/Monad [defs' (extract-defs defs)] - (return (: (, Referrals (List Syntax)) [(#Except defs') tokens']))) + (return (: (, Referrals (List Syntax)) [(#Exclude defs') tokens']))) _ (fail "Incorrect syntax for referral.")) @@ -2166,7 +2166,7 @@ [*defs (exported-defs m-name)] (;return (filter (is-member? +defs) *defs))) - (#Except -defs) + (#Exclude -defs) (do Lux/Monad [*defs (exported-defs m-name)] (;return (filter (. not (is-member? -defs)) *defs))) |