debug info

Author: bronsa

src/main/clojure/clojure/tools/emitter/jvm.clj

@@ -32,14 +32,17 @@
   ([{:keys [class-name] :as class-ast} class-loader]
      (.defineClass ^DynamicClassLoader class-loader class-name (t/-compile class-ast) nil)))
 
-(def run-passes
-  (schedule (into a/default-passes
+
+(def passes (into a/default-passes
                   #{#'collect-internal-methods
 
                     #'ensure-tag
 
                     #'annotate-class-id
-                    #'annotate-internal-name})))
+                    #'annotate-internal-name}))
+
+(def run-passes
+  (schedule passes))
 
 (defn eval
   "(eval form)

src/test/clojure/clojure/tools/emitter/jvm/core_test.clj

@@ -1,6 +1,7 @@
 (ns clojure.tools.emitter.jvm.core-test
   (:require [clojure.tools.emitter.jvm :as e]
-            [clojure.test :refer :all]))
+            [clojure.test :refer :all]
+            [clojure.tools.analyzer.passes :refer [schedule]]))
 
 (deftest eval-test
   (is (= 1 (e/eval 1)))
@@ -12,5 +13,8 @@
   (is (= [1 2] (e/eval '(:foo {:foo [1 2]}))))
   (is (= 3 (e/eval '(first (remove #(not= 3 %) (filter odd? (map inc (range 10)))))))))
 
+
+
 (deftest load-core-test
-  (is (= nil (e/load "/clojure.core"))))
+  (is (= nil (e/load "/clojure.core"))
+      (schedule e/pases {:debug? true})))