File tree
Expand file treeCollapse file tree1 file changed
+3
-3
lines changed src/main/cljs/cljs/analyzer/passes
Expand file treeCollapse file tree1 file changed
+3
-3
lines changed Original file line number | Diff line number | Diff line change |
---|
|
28 | 28 |
|
29 | 29 | (defn single-binding-let? [ast]
|
30 | 30 | (and (= :let (:op ast))
|
31 |
| -(= 1 (count (-> ast :bindings))))) |
| 31 | +(= 1 (count (-> ast :bindings))))) |
32 | 32 |
|
33 | 33 | (defn no-statements? [let-ast]
|
34 | 34 | (= [] (-> let-ast :body :statements)))
|
|
46 | 46 | ;; remove :env, if same, local will differ only by
|
47 | 47 | ;; :context (:expr | :statement)
|
48 | 48 | (= (dissoc (:test if-ast) :env)
|
49 |
| -(dissoc (:then if-ast) :env))) |
| 49 | +(dissoc (:then if-ast) :env))) |
50 | 50 |
|
51 | 51 | (defn test=else? [if-ast]
|
52 | 52 | ;; remove :env, if same, local will differ only by
|
|
60 | 60 |
|
61 | 61 | (defn simple-or? [ast]
|
62 | 62 | (and (simple-test-binding-let? ast)
|
63 |
| -(test=then? (-> ast :body :ret)))) |
| 63 | +(test=then? (-> ast :body :ret)))) |
64 | 64 |
|
65 | 65 | (defn optimizable-and? [ast]
|
66 | 66 | (and (simple-and? ast)
|
|
You can’t perform that action at this time.
0 commit comments