;;;; A class redefined under its instances, with update-instance-for-
;;;; redefined-class written from the session to carry a lost slot's value
;;;; into a gained one. dev-classes.flan is the name-matching half; this is
;;;; the half a method adds, and the method that signals.
;;;;
;;;; The instances are pushed by the editor for dev-classes.flan's reason: a
;;;; compiled caller of the constructor would pin its slot count.
(import agent "vendor:agent")

(defclass point [x y])

(defstruct Refused [why i32])

(defonce instances dyn)

(defn main [] i32
  (agent/start "/tmp/flan-dev-hook-fallback.sock")
  (set instances (vec-new dyn))
  (dotimes [i 4000]
    (agent/wait 5))
  0)