aboutsummaryrefslogtreecommitdiff
path: root/lux-bootstrapper/src
diff options
context:
space:
mode:
Diffstat (limited to 'lux-bootstrapper/src')
-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)