From f2172051a91bbb2578918dc784a053a321849b63 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 3 Jun 2022 22:08:18 -0400
Subject: Extensible import syntax [Part 5]

---
 stdlib/source/library/lux.lux | 20 +-------------------
 1 file changed, 1 insertion(+), 19 deletions(-)

(limited to 'stdlib/source/library/lux.lux')

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
-- 
cgit v1.2.3