max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: avoid runtime bounds check

Browse source
This commit is contained in:
Leonardo de Moura 2022-10-27 07:48:30 -07:00
parent 33045433d2
commit 44e889bd52
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Lean/Environment.lean
View file

@ -646,8 +646,8 @@ def writeModule (env : Environment) (fname : System.FilePath) : IO Unit := do
saveModuleData fname env.mainModule (← mkModuleData env)
private partial def getEntriesFor (mod : ModuleData) (extId : Name) (i : Nat) : Array EnvExtensionEntry :=
if i < mod.entries.size then
let curr := mod.entries.get! i;
if h : i < mod.entries.size then
let curr := mod.entries[i]
if curr.1 == extId then curr.2 else getEntriesFor mod extId (i+1)
else
#[]