aboutsummaryrefslogtreecommitdiff
path: root/lux-bootstrapper
diff options
context:
space:
mode:
Diffstat (limited to 'lux-bootstrapper')
-rw-r--r--lux-bootstrapper/src/lux/analyser/lux.clj7
-rw-r--r--lux-bootstrapper/src/lux/compiler/jvm/lux.clj6
2 files changed, 7 insertions, 6 deletions
diff --git a/lux-bootstrapper/src/lux/analyser/lux.clj b/lux-bootstrapper/src/lux/analyser/lux.clj
index b7d78aa23..63bc675de 100644
--- a/lux-bootstrapper/src/lux/analyser/lux.clj
+++ b/lux-bootstrapper/src/lux/analyser/lux.clj
@@ -562,8 +562,11 @@
=meta (&&/analyse-1 analyse &type/Code ?meta)
==meta (eval! (optimize =meta))
def-value (compile-def ?name (optimize =value) ==meta exported?)
- _ &type/reset-mappings]
- (return (&/T [module-name (&&/expr-type* =value) def-value]))))
+ _ &type/reset-mappings
+ :let [def-type (&&/expr-type* =value)
+ _ (println 'DEF (str module-name &/+name-separator+ ?name
+ " : " (&type/show-type def-type)))]]
+ (return (&/T [module-name def-type def-value]))))
(defn analyse-def [analyse optimize eval! compile-def ?name ?value ?meta exported?]
(|do [_ (analyse-def* analyse optimize eval! compile-def ?name ?value ?meta exported?)]
diff --git a/lux-bootstrapper/src/lux/compiler/jvm/lux.clj b/lux-bootstrapper/src/lux/compiler/jvm/lux.clj
index 043fc2273..515bd8db5 100644
--- a/lux-bootstrapper/src/lux/compiler/jvm/lux.clj
+++ b/lux-bootstrapper/src/lux/compiler/jvm/lux.clj
@@ -295,8 +295,7 @@
(return nil)))
:let [_ (.visitEnd =class)]
_ (&&/save-class! def-name (.toByteArray =class))
- def-value (install-def! class-loader current-class module-name ?name ?body ?meta exported?)
- :let [_ (println 'DEF (str module-name &/+name-separator+ ?name))]]
+ def-value (install-def! class-loader current-class module-name ?name ?body ?meta exported?)]
(return def-value)))
_
@@ -322,8 +321,7 @@
(return nil)))
:let [_ (.visitEnd =class)]
_ (&&/save-class! def-name (.toByteArray =class))
- def-value (install-def! class-loader current-class module-name ?name ?body ?meta exported?)
- :let [_ (println 'DEF (str module-name &/+name-separator+ ?name))]]
+ def-value (install-def! class-loader current-class module-name ?name ?body ?meta exported?)]
(return def-value))))))
(defn compile-program [compile ?program]