aboutsummaryrefslogtreecommitdiff
path: root/lux-bootstrapper/src
diff options
context:
space:
mode:
authorEduardo Julian2022-08-30 19:33:36 -0400
committerEduardo Julian2022-08-30 19:33:36 -0400
commitd0e4ba8124345ce990de7fdf7497dd903de6c342 (patch)
treee8cc8f5e41615ca9ca536f71ddec8aca7f882a6c /lux-bootstrapper/src
parentb135e487e8f705a5fea7b9ef785310572642063a (diff)
Got rid of the superfluous "lux macro" extension.
Diffstat (limited to '')
-rw-r--r--lux-bootstrapper/src/lux/analyser/proc/common.clj9
1 files changed, 0 insertions, 9 deletions
diff --git a/lux-bootstrapper/src/lux/analyser/proc/common.clj b/lux-bootstrapper/src/lux/analyser/proc/common.clj
index 0bc113110..1916fd674 100644
--- a/lux-bootstrapper/src/lux/analyser/proc/common.clj
+++ b/lux-bootstrapper/src/lux/analyser/proc/common.clj
@@ -30,14 +30,6 @@
(return (&/|list (&&/|meta exo-type _location
(&&/$proc (&/T ["lux" "try"]) (&/|list =op) (&/|list)))))))))
-(defn- analyse-lux-macro [analyse exo-type ?values]
- (|do [:let [(&/$Item macro (&/$End)) ?values]
- [_real-name [_exported? _def-type macro-type]] (&&module/find-def! &/prelude "Macro'")
- [[=macro*-type =location] =macro] (&&/analyse-1 analyse macro-type macro)
- _ (&type/check exo-type &type/Macro)]
- (return (&/|list (&&/|meta exo-type =location
- =macro)))))
-
(do-template [<name> <proc> <input-type> <output-type>]
(defn- <name> [analyse exo-type ?values]
(|do [:let [(&/$Item reference (&/$Item sample (&/$End))) ?values]
@@ -235,7 +227,6 @@
(try (case proc
"lux is" (analyse-lux-is analyse exo-type ?values)
"lux try" (analyse-lux-try analyse exo-type ?values)
- "lux macro" (analyse-lux-macro analyse exo-type ?values)
"lux io log" (analyse-io-log analyse exo-type ?values)
"lux io error" (analyse-io-error analyse exo-type ?values)