aboutsummaryrefslogtreecommitdiff
path: root/lux-bootstrapper/src/lux/analyser/module.clj
diff options
context:
space:
mode:
authorEduardo Julian2021-09-08 02:03:18 -0400
committerEduardo Julian2021-09-08 02:03:18 -0400
commit609cc6c16e75c13d87183c38245136fa038b0496 (patch)
treef5f3b499df0c3e7e6e3dc0c451c9766f34ec07de /lux-bootstrapper/src/lux/analyser/module.clj
parent964ec62d4fbcc1fb2336a3de355ce3554ef7eb04 (diff)
No more module annotations.
Diffstat (limited to '')
-rw-r--r--lux-bootstrapper/src/lux/analyser/module.clj22
1 files changed, 0 insertions, 22 deletions
diff --git a/lux-bootstrapper/src/lux/analyser/module.clj b/lux-bootstrapper/src/lux/analyser/module.clj
index 8c6f06d88..1904e55b7 100644
--- a/lux-bootstrapper/src/lux/analyser/module.clj
+++ b/lux-bootstrapper/src/lux/analyser/module.clj
@@ -22,7 +22,6 @@
"module-aliases"
"defs"
"imports"
- "module-annotations"
"module-state"])
(defn ^:private new-module [hash]
@@ -34,8 +33,6 @@
(&/|table)
;; "lux;imports"
&/$End
- ;; module-annotations
- &/$None
;; "module-state"
$Active]
))
@@ -212,25 +209,6 @@
(&/get$ $imports)
(&/|any? (partial = imported-module-name))))
-(defn get-anns [module-name]
- (fn [state]
- (if-let [module (->> state
- (&/get$ &/$modules)
- (&/|get module-name))]
- (return* state (&/get$ $module-annotations module))
- ((&/fail-with-loc (str "[Analyser Error] Module does not exist: " module-name))
- state))))
-
-(defn set-anns [anns module-name]
- (fn [state]
- (return* (->> state
- (&/update$ &/$modules
- (fn [ms]
- (&/|update module-name
- #(&/set$ $module-annotations (&/$Some anns) %)
- ms))))
- nil)))
-
(def empty_annotations
(let [dummy_location (&/T ["" 0 0])]
(&/T [dummy_location