bugfix: support try/finally properly

jgpc42 · Feb 12, 2021 · e8cee4a · e8cee4a
1 parent eec3582
commit e8cee4a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/insn/op.clj b/src/insn/op.clj
@@ -333,7 +333,8 @@
   `handler` against throwable `etype`."
   [^MethodVisitor v start end handler etype]
   (let [[start end handler] (map util/label-from [start end handler])]
-    (.visitTryCatchBlock v start end handler (util/class-desc etype))))
+    (.visitTryCatchBlock v start end handler (when-not (nil? etype)
+                                               (util/class-desc etype)))))
 
 (defn visit-label!
   "Set label offset to current visitor position."