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.
22 lines
780 B
Plaintext
22 lines
780 B
Plaintext
;;;; A dyn global, which is the case that needs the startup function.
|
|
;;;;
|
|
;;;; A dyn value is made by a call into the runtime, and a call is not a
|
|
;;;; constant, so the initialiser cannot be a constant image the way a typed
|
|
;;;; global's is. It runs in flan..init-globals, which main calls after
|
|
;;;; flan_gc_init and before anything the programmer wrote — the same machinery
|
|
;;;; the computed globals already use, which is the point: a dyn global is a
|
|
;;;; computed global and needed no new mechanism.
|
|
|
|
(defonce counter dyn 0)
|
|
(defonce label dyn "start")
|
|
|
|
(defn bump [] ()
|
|
(set counter (+ counter 1)))
|
|
|
|
(defn main [] ()
|
|
(print counter) (print " ") (print label) (print "\n")
|
|
(bump)
|
|
(bump)
|
|
(set label "done")
|
|
(print counter) (print " ") (print label) (print "\n"))
|