     ))
 
 
-;; (set! *warn-on-reflection* true)
-;; (set! *unchecked-math* :warn-on-boxed)
+(set! *warn-on-reflection* true)
+; (set! *unchecked-math* :warn-on-boxed)
 
 
 (defmacro expension-report

             (recur r2#))
           r#)))))

(defn test-inline-reduce
  ;; TODO - We could do better and accept a form, not a lambda
  []
  (let [coll (into [] (range 10))]

    (report (compile-reducer
              +

  []
  (let [coll [1 2 3 4]]
    (report (average coll))
    (report (average-m [1 2 3 4]))
    (report (my-average))
    (report my-average-2)
