Joseph Ferano
a4c6b996ff
The trio the author decided on 2026-09-20 is now all built: def is CL's defparameter — its initialiser runs on every daemon re-run, unguarded, so an edited initialiser repaints the same storage on C-c C-c plus re-run — defonce (Clojure's name for CL's defvar, per the author) initialises once behind the .init~once. flag, and defconst stays the image. One parse arm reads both forms; the difference is Ast.reinit, carried to Tast.global's grerun. Emit.startup_plan gives a def no guard flag, and Check.check_global lifts every def initialiser — zero and literal included — into global/<n>, so the host's startup reaches it through the function cell and a re-evaluated def swaps it (Session's def_inits; Emit.redefinition declares the cell for a non-sibling target). The old defvar spelling is refused with the rename and both compiling spellings, and every program, test, doc and editor list is swept — except sand.flan, the author's live WIP, whose seven defvar lines are flagged in FIX.org and keep its three dependent tests red on this branch.
28 lines
1021 B
Plaintext
28 lines
1021 B
Plaintext
;;;; A program with no (agent/start) in it at all, which still takes a
|
|
;;;; redefinition.
|
|
;;;;
|
|
;;;; The listener comes from the package's constructor, which binds
|
|
;;;; FLAN_AGENT_SOCKET when the daemon has set it — so under [flan dev] there
|
|
;;;; is nothing to call and nothing to forget. Installing is still the
|
|
;;;; program's own decision and still happens where it says: [wait] is the
|
|
;;;; headless spelling of the poll at the top of a frame, and the second number
|
|
;;;; below cannot appear before it.
|
|
;;;;
|
|
;;;; It does import the agent and it does call into it. That is not an accident
|
|
;;;; of how the fixture was written: [Reach] prunes a package nothing calls, so
|
|
;;;; an executable that mentions the agent nowhere does not link the
|
|
;;;; constructor either. See flan_agent.c's [auto_start].
|
|
(import agent "vendor:agent")
|
|
|
|
(defonce ticks i64)
|
|
|
|
(defn tick [] i64
|
|
(set ticks (+ ticks 1))
|
|
ticks)
|
|
|
|
(defn main [] i32
|
|
(print (tick)) (println "")
|
|
(while (= (agent/wait 100) 0) 0)
|
|
(print (tick)) (println "")
|
|
0)
|