/
fix_case_test.clj
19 lines (17 loc) · 954 Bytes
/
fix_case_test.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
;; Copyright (c) Nicola Mometto, Rich Hickey & contributors.
;; The use and distribution terms for this software are covered by the
;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;; which can be found in the file epl-v10.html at the root of this distribution.
;; By using this software in any fashion, you are agreeing to be bound by
;; the terms of this license.
;; You must not remove this notice, or any other, from this software.
(ns eastwood.copieddeps.dep2.clojure.tools.analyzer.passes.jvm.fix-case-test
(:require [eastwood.copieddeps.dep1.clojure.tools.analyzer.passes.add-binding-atom :refer [add-binding-atom]]))
(defn fix-case-test
"If the node is a :case-test, annotates in the atom shared
by the binding and the local node with :case-test"
{:pass-info {:walk :pre :depends #{#'add-binding-atom}}}
[ast]
(when (:case-test ast)
(swap! (:atom ast) assoc :case-test true))
ast)