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.
18 lines
617 B
Plaintext
18 lines
617 B
Plaintext
;;;; A run-time-new global with a value of its own, which is the half of the
|
|
;;;; new-name path that a zeroed defonce cannot measure: [flan_dev_global]
|
|
;;;; allocates with calloc, so a global declared zero looks right whether or
|
|
;;;; not its initial value travelled with the module. [tuning] is 42, and the
|
|
;;;; transcript is the number the host prints, so an image that never arrived
|
|
;;;; prints 4 rather than 88.
|
|
(defonce counter i64)
|
|
(defonce tuning i64 42)
|
|
|
|
(defn helper [x i64] i64 (* x 2))
|
|
|
|
(defn bump [] i64
|
|
(println "v6")
|
|
(set counter (+ counter tuning 1))
|
|
(helper counter))
|
|
|
|
(defn outer [] i64 (bump))
|