Permalink
Browse files

Dropped debug statements

  • Loading branch information...
1 parent 60ef23e commit 1b5666c69f0d1316eb08e55be9a128faac637104 @jonase committed Jan 13, 2012
Showing with 4 additions and 8 deletions.
  1. +4 −8 src/eastwood/linters/deprecated.clj
View
12 src/eastwood/linters/deprecated.clj
@@ -13,35 +13,31 @@
(some #{java.lang.Deprecated})))
(defmethod deprecated :instance-method [expr]
- ;(println "GOTHERE")
(->> expr
:Expr-obj
.method
java-is-deprecated?))
-#_(defmethod deprecated :new [expr]
- (println "GOTHERE")
+(defmethod deprecated :new [expr]
(->> expr
:Expr-obj
.ctor
java-is-deprecated?))
(defmethod deprecated :default [_]
- (println (:op _))
false)
(defmulti report-deprecated :op)
(defmethod report-deprecated :var [expr]
- (println (:var expr) "is deprecated"))
+ (printf "%s is deprecated\n" (:var expr)))
(defmethod report-deprecated :instance-method [expr]
- (println "Instance method" (str \" (-> expr :Expr-obj .method) \")
- "is deprecated."))
+ (printf "Instance method \"%s\" is deprecated\n" (-> expr :Expr-obj .method)))
(defmethod report-deprecated :new [expr]
- (println "Constructor" (str \" (-> expr :Expr-obj .ctor) \") "is deprecated"))
+ (printf "Constructor \"%s\" is deprecated\n" (-> expr :Expr-obj .ctor)))
(defn deprecations [exprs]
(doseq [expr exprs

0 comments on commit 1b5666c

Please sign in to comment.