tangled
alpha
login
or
join now
noahbogart.com
/
sinker
0
fork
atom
catch exceptions hook, line, and sinker
0
fork
atom
overview
issues
pulls
pipelines
Handle use in macros
noahbogart.com
7 months ago
29c577ad
a2fcda61
+1
-1
1 changed file
expand all
collapse all
unified
split
src
noahtheduke
sinker.clj
+1
-1
src/noahtheduke/sinker.clj
···
51
52
(defn parse-clause
53
[expr]
54
-
(case (and (list? expr) (first expr))
55
catch (parse-catch-clause expr)
56
finally (parse-finally-clause expr)
57
#_:else (parse-expr expr)))
···
51
52
(defn parse-clause
53
[expr]
54
+
(case (and (sequential? expr) (not (vector? expr)) (first expr))
55
catch (parse-catch-clause expr)
56
finally (parse-finally-clause expr)
57
#_:else (parse-expr expr)))