We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 927f221 commit fc265c5Copy full SHA for fc265c5
src/main/cljs/cljs/analyzer/passes/and_or.cljc
@@ -28,7 +28,7 @@
28
29
(defn single-binding-let? [ast]
30
(and (= :let (:op ast))
31
- (= 1 (count (-> ast :bindings)))))
+ (= 1 (count (-> ast :bindings)))))
32
33
(defn no-statements? [let-ast]
34
(= [] (-> let-ast :body :statements)))
@@ -46,7 +46,7 @@
46
;; remove :env, if same, local will differ only by
47
;; :context (:expr | :statement)
48
(= (dissoc (:test if-ast) :env)
49
- (dissoc (:then if-ast) :env)))
+ (dissoc (:then if-ast) :env)))
50
51
(defn test=else? [if-ast]
52
@@ -60,7 +60,7 @@
60
61
(defn simple-or? [ast]
62
(and (simple-test-binding-let? ast)
63
- (test=then? (-> ast :body :ret))))
+ (test=then? (-> ast :body :ret))))
64
65
(defn optimizable-and? [ast]
66
(and (simple-and? ast)
0 commit comments