aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-06-03 22:08:18 -0400
committerEduardo Julian2022-06-03 22:08:18 -0400
commitf2172051a91bbb2578918dc784a053a321849b63 (patch)
tree5e49152d0992cadf9420a055cc24cabafc4e7972 /stdlib/source/library/lux.lux
parent3e7d188cbe7bc9bce4a14318e2f62583fe2501d1 (diff)
Extensible import syntax [Part 5]
Diffstat (limited to 'stdlib/source/library/lux.lux')
-rw-r--r--stdlib/source/library/lux.lux20
1 files changed, 1 insertions, 19 deletions
diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux
index def83aa1c..633ec16ce 100644
--- a/stdlib/source/library/lux.lux
+++ b/stdlib/source/library/lux.lux
@@ -3420,7 +3420,7 @@
(pattern (list))
(meta#in [(if aliased?
- {#Referral [(symbol ..none) (list)]}
+ {#Referral [(symbol ..only) (list)]}
{#Nothing})
(list)])
@@ -3764,24 +3764,6 @@
{.#None}
(failure (..wrong_syntax_error (symbol ..except)))))
-(template [<simple> <complex>]
- [(macro: .public (<simple> tokens)
- (case (..parsed (all ..andP
- ..anyP
- ..anyP)
- tokens)
- {.#Some [current_module imported_module]}
- (meta#in (list (` (<complex> (~ current_module) (~ imported_module)))))
-
- {.#None}
- (let [[module _] (symbol .._)
- [_ short] (symbol <simple>)]
- (failure (..wrong_syntax_error [module short])))))]
-
- [full ..except]
- [none ..only]
- )
-
(def: (in_env name state)
(-> Text Lux (Maybe Type))
(case state