Merge pull request #74 from miner/master

:suspcious-expression should not look into quoted expressions

Author: jafingerhut

src/eastwood/linters/typos.clj

@@ -69,7 +69,7 @@
 ;                           (-> (first asts) :env :ns the-ns)))
         forms (util/string->forms source this-ns false)
         freqs (->> forms
-                   util/replace-comments-with-nil
+                   util/replace-comments-and-quotes-with-nil
                    flatten-also-colls
                    (filter keyword?)
                    frequencies)]
@@ -374,7 +374,7 @@ generate varying strings while the test is running."
   (apply
    concat
    (let [fs (-> forms
-                util/replace-comments-with-nil
+                util/replace-comments-and-quotes-with-nil
                 (util/subforms-with-first-in-set
                  (set (keys core-first-vars-that-do-little))))]
      (for [f fs]

src/eastwood/util.clj

@@ -391,8 +391,8 @@ try to generate code from it.  It is fine for pprint'ing."
                form))
            form))
 
-(defn replace-comments-with-nil [form]
-  (replace-subforms-with-first-in-set form #{'comment} (constantly nil)))
+(defn replace-comments-and-quotes-with-nil [form]
+  (replace-subforms-with-first-in-set form #{'comment 'quote} (constantly nil)))
 
 (defn- mark-statements-in-try-body-post [ast]
   (if (and (= :try (:op ast))