We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent f0e59b9 commit cbc70e7Copy full SHA for cbc70e7
resources/clj-kondo.exports/org.clj-commons/slingshot/clj_kondo/clj_commons/slingshot.clj
@@ -17,10 +17,13 @@
17
(let [[v & exprs] exprs]
18
(api/list-node
19
(list* catch (api/token-node 'Exception) v
20
- (api/list-node
21
- (list (api/token-node 'fn)
22
- (api/vector-node [(api/token-node '%)])
23
- catchee))
+ (if (or (= 'fn (first catchee-sexpr))
+ (= 'fn* (first catchee-sexpr)))
+ catchee
+ (api/list-node
24
+ (list (api/token-node 'fn)
25
+ (api/vector-node [(api/token-node '%)])
26
+ catchee)))
27
exprs)))
28
:else catch-node)))
29
0 commit comments