51bba5338a
This PR changes macro scope numbering from per-module to per-command, ensuring that unrelated changes to other commands do not affect macro scopes generated by a command, which improves `prefer_native` hit rates on bootstrapping as well as avoids further rebuilds under the module system. In detail, instead of always using the current module name as a macro scope prefix, each command now introduces a new macro scope prefix (called "context") of the shape `<main module>._hygCtx_<uniq>` where `uniq` is a `UInt32` derived from the command but automatically incremented in case of conflicts (which must be local to the current module). In the current implementation, `uniq` is the hash of the declaration name, if any, or else the hash of the full command's syntax. Thus, it is always independent of syntactic changes to other commands (except in case of hash conflicts, which should only happen in practice for syntactically identical commands) and, in the case of declarations, also independent of syntactic changes to any private parts of the declaration.
45 lines
1.1 KiB
Text
45 lines
1.1 KiB
Text
--
|
|
open Lean
|
|
def check (b : Bool) : IO Unit :=
|
|
unless b do throw $ IO.userError "check failed"
|
|
|
|
def test1 : IO Unit := do
|
|
let x := `x;
|
|
let x := addMacroScope `main x 1;
|
|
IO.println $ x;
|
|
let v := extractMacroScopes x;
|
|
let x := { v with name := `y }.review;
|
|
IO.println $ x;
|
|
let v := extractMacroScopes x;
|
|
let x := { v with name := `x }.review;
|
|
IO.println $ x;
|
|
let x := addMacroScope `main x 2;
|
|
IO.println $ x;
|
|
let v := extractMacroScopes x;
|
|
let x := { v with name := `y }.review;
|
|
IO.println $ x;
|
|
let v := extractMacroScopes x;
|
|
let x := { v with name := `x }.review;
|
|
IO.println $ x;
|
|
let x := addMacroScope `main x 3;
|
|
IO.println $ x;
|
|
let x := addMacroScope `foo x 4;
|
|
IO.println $ x;
|
|
let x := addMacroScope `foo x 5;
|
|
let v := extractMacroScopes x;
|
|
check (v.ctx == `foo);
|
|
IO.println $ x;
|
|
let x := addMacroScope `bla.bla x 6;
|
|
IO.println $ x;
|
|
let v := extractMacroScopes x;
|
|
check (v.ctx == `bla.bla);
|
|
let x := addMacroScope `bla.bla x 7;
|
|
IO.println $ x;
|
|
let v := extractMacroScopes x;
|
|
let x := { v with name := `y }.review;
|
|
IO.println $ x;
|
|
let x := { v with name := `z.w }.review;
|
|
IO.println $ x;
|
|
pure ()
|
|
|
|
#eval test1
|