diff options
Diffstat (limited to 'src/lux/analyser/case.clj')
| -rw-r--r-- | src/lux/analyser/case.clj | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/lux/analyser/case.clj b/src/lux/analyser/case.clj index 8a914ab70..8fa8ff29f 100644 --- a/src/lux/analyser/case.clj +++ b/src/lux/analyser/case.clj @@ -5,7 +5,8 @@ assert!]] [parser :as &parser] [type :as &type]) - (lux.analyser [env :as &env]))) + (lux.analyser [base :as &&] + [env :as &env]))) ;; [Resources] (defn locals [member] @@ -22,12 +23,12 @@ _ (list))) -(defn analyse-branch [analyse-1 max-registers [bindings body]] +(defn analyse-branch [analyse max-registers [bindings body]] (reduce (fn [body* name] (&env/with-local name :local &type/+dont-care-type+ body*)) (reduce (fn [body* _] (&env/with-local "#" :local &type/+dont-care-type+ body*)) - (analyse-1 body) + (&&/analyse-1 analyse body) (range (- max-registers (count bindings)))) bindings)) |