22 lines
684 B
Plaintext
22 lines
684 B
Plaintext
;;;; 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)
|