(defrecord PushTry [catch-block]
IInstruction
(reads-from [this] [])
(writes-to [this] [])
(block-references [this] [catch-block])
IEmittableInstruction
(emit-instruction [this state-sym]
`[~'_ (aset-all! ~state-sym ~EXCEPTION-FRAMES (cons ~catch-block (aget-object ~state-sym ~EXCEPTION-FRAMES)))]))