|
4 | 4 | [clojure.tools.analyzer.utils :refer [update-vals]])) |
5 | 5 |
|
6 | 6 | (defn ^:private has-deps? |
7 | | - "Returns true if the pass has some dependencies" |
| 7 | + "Returns true if the pass has any dependencies" |
8 | 8 | [pass] |
9 | 9 | (seq (:dependencies pass))) |
10 | 10 |
|
|
15 | 15 |
|
16 | 16 | (defn ^:private remove-pass |
17 | 17 | "Takes a set of pass-infos and a pass, and removes the pass from the set of |
18 | | - pass-infos, updating :dependencies and :dependants aswell" |
| 18 | + pass-infos, updating :dependencies and :dependants as well." |
19 | 19 | [passes pass] |
20 | 20 | (indicize (reduce (fn [m p] (conj m (-> p (update-in [:dependencies] disj pass) |
21 | 21 | (update-in [:dependants] disj pass)))) |
|
45 | 45 |
|
46 | 46 | (defn calculate-deps |
47 | 47 | "Takes a map of pass-name -> pass-info and adds to each pass-info :dependencies and |
48 | | - :dependants info, which also contain the transitive dependencies" |
| 48 | + :dependants info, which also contains the transitive dependencies" |
49 | 49 | [passes] |
50 | 50 | (let [passes (desugar-deps passes) |
51 | 51 | dependencies (reduce-kv (fn [deps pname {:keys [depends]}] |
|
191 | 191 | - :any if the pass can be composed with other passes in both a prewalk |
192 | 192 | or a postwalk |
193 | 193 | * :affects a set of Vars, this pass must be the last in the same tree traversal that all |
194 | | - the specified passes must partecipate in |
| 194 | + the specified passes must participate in |
195 | 195 | This pass must take a function as argument and return the actual pass, the |
196 | 196 | argument represents the reified tree traversal which the pass can use to |
197 | 197 | control a recursive traversal, implies :depends |
|
0 commit comments