JosephFerano/flan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Master is merged into the dyn crossing lane again.

Browse Source
This commit is contained in:
Joseph Ferano 2026-09-26 17:30:44 +07:00
commit e85ca2c431
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/dev.ml
View File

@ -1706,9 +1706,9 @@ let macro_loc tbl name = try Hashtbl.find tbl name with Not_found -> ""
(* The prelude's [defmacro] forms, read once. [Macro.prelude_macros] holds only (* The prelude's [defmacro] forms, read once. [Macro.prelude_macros] holds only
the names and [defs] wants the parameter vectors too, so the forms are kept the names and [defs] wants the parameter vectors too, so the forms are kept
here — and kept lazily for the reason that one is: [Prelude.forms] re-reads here, lazily: [Prelude.forms] reads the prelude once but still rebuilds its
and re-parses the whole prelude on every call, and [defs] is asked on connect forms on every call, and [defs] is asked on connect and again after every
and again after every accepted evaluation. *) accepted evaluation. *)
let prelude_macro_forms = let prelude_macro_forms =
lazy lazy
(List.filter (fun f -> Macro.macro_name f <> None) (Prelude.forms ())) (List.filter (fun f -> Macro.macro_name f <> None) (Prelude.forms ()))