lint warnings

Author: borkdude

src/nextjournal/clerk/analyzer.clj

@@ -147,7 +147,6 @@
                         (swap! !deps conj v)))
                     (ana-jvm/macroexpand-1 form env))
         analyzed (analyze-form {#'ana/macroexpand-1 mexpander} (rewrite-defcached form))
-        _ (def a* analyzed)
         nodes (ana-ast/nodes analyzed)
         {:keys [vars declared]} (get-vars+forward-declarations nodes)
         vars- (set/difference vars declared)
@@ -186,13 +185,6 @@
       (seq declared) (assoc :declared declared)
       var (assoc :var var))))
 
-(comment
-  (nextjournal.clerk.analyzer2/get-vars+forward-declarations n*)
-  (nextjournal.clerk.analyzer/get-vars+forward-declarations n*)
-  d
-  f
-  )
-
 #_(analyze '(assoc {} :a :b))
 #_(analyze '[[assoc]])
 #_(analyze nil)

src/nextjournal/clerk/analyzer2.clj

@@ -123,7 +123,6 @@
                    (-> (analyze-form (rewrite-defcached form))
                        (ana/resolve-syms-pass)
                        (ana/macroexpand-pass)))
-        _ (def a* analyzed)
         _ (ana/prewalk (ana/only-nodes
                         #{:var :binding :symbol}
                         (fn [var-node]
@@ -149,7 +148,6 @@
                                               (swap! !deps conj (.getName ^Class clazz))))))))
                           var-node)) analyzed)
         nodes (ana/nodes analyzed)
-        _ (def n* nodes)
         {:keys [vars declared]} (get-vars+forward-declarations nodes)
         vars- (set/difference vars declared)
         var (when (and (= 1 (count vars))