diff options
author | Eduardo Julian | 2021-09-08 02:03:18 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-09-08 02:03:18 -0400 |
commit | 609cc6c16e75c13d87183c38245136fa038b0496 (patch) | |
tree | f5f3b499df0c3e7e6e3dc0c451c9766f34ec07de /lux-bootstrapper/src/lux/analyser/module.clj | |
parent | 964ec62d4fbcc1fb2336a3de355ce3554ef7eb04 (diff) |
No more module annotations.
Diffstat (limited to '')
-rw-r--r-- | lux-bootstrapper/src/lux/analyser/module.clj | 22 |
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 |