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