;;;; The same claim as dev-trap-free-all.flan over the other allocator trap,
;;;; and with nothing on the restart stack.
;;;;
;;;; `nowhere` is a zeroed `Allocator` — a `defvar` nobody assigned — and
;;;; `free-all` on it is the "I released the region" / "I never made one"
;;;; collapse the runtime refuses to let a program spell the same way. The
;;;; refusal is a trap with no transfer channel, so it parks rather than
;;;; resumes, and here there is not even a restart to list: the break loop says
;;;; so and stands still, which is the whole difference between a session you
;;;; can fix the program in and a daemon that is gone.
(import agent "vendor:agent")

(defvar nowhere Allocator)

(defn main [] i32
  (agent/start "/tmp/flan-dev-trap-null-alloc-fallback.sock")
  (free-all nowhere)
  0)