;;;; An exhausted allocator with nothing handling it. §2: `error` is the
;;;; diverging variant — a handler that returns normally has not answered it,
;;;; and with no handler at all the program stops on the frame that erred
;;;; rather than carrying on with a push that appended nothing.
(defn main [] i32
  (let [a (arena-new 32)]
    (let [v (vec-new i32 a)]
      (println "before")
      (dotimes [i 64] (push v i))
      (println "unreachable")
      (free v)))
  0)