diff options
| author | Eduardo Julian | 2016-01-17 01:17:52 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2016-01-17 01:17:52 -0400 |
| commit | c0f17c4f29cbd194750eac19a481128d3b3b2335 (patch) | |
| tree | 3a435a3b1e9518fcfcf02828e95991b789faae74 /src/lux/analyser/lux.clj | |
| parent | f54a23399de846e63cc9586f36efcb30fea10be5 (diff) | |
- I overdid the switch from null to lux.base/unit-tag, so I reversed the change on places where it was superfluous, to reduce the overhead of variable look-up during compilation.
Diffstat (limited to '')
| -rw-r--r-- | src/lux/analyser/lux.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/lux/analyser/lux.clj b/src/lux/analyser/lux.clj index 8d2736f9d..04f2c9828 100644 --- a/src/lux/analyser/lux.clj +++ b/src/lux/analyser/lux.clj @@ -263,7 +263,7 @@ (|do [[[r-module r-name] [endo-type ?meta ?value]] (&&module/find-def module name) _ (if (and (clojure.lang.Util/identical &type/Type endo-type) (clojure.lang.Util/identical &type/Type exo-type)) - (return &/unit-tag) + (return nil) (&type/check exo-type endo-type)) _cursor &/cursor] (return (&/|list (&&/|meta endo-type _cursor @@ -520,7 +520,7 @@ (|do [module-name &/get-module-name _ (if (= module-name path) (fail (str "[Analyser Error] Module can't import itself: " path)) - (return &/unit-tag))] + (return nil))] (&/save-module (|do [already-compiled? (&&module/exists? path) active? (&/active-module? path) @@ -528,7 +528,7 @@ _ (&&module/add-import path) _ (if (not already-compiled?) (compile-module path) - (return &/unit-tag))] + (return nil))] (return &/Nil$))))) (defn analyse-alias [analyse compile-token ex-alias ex-module] |