aniva/Pantograph
aniva
/
Pantograph
1
1
Fork 0
Code Issues 10 Pull Requests 1 Packages Projects Releases 1 Wiki Activity

fix: Name internal order

This commit is contained in:
Leni Aniva 2024-07-28 14:19:47 -07:00
parent 29f437f859
commit 7b5567d784
Signed by: aniva
GPG Key ID: 4D9B1C8D10EA4C50
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Pantograph/Environment.lean
View File

@ -20,8 +20,8 @@ def isNameInternal (n: Name): Bool :=
@[export pantograph_environment_catalog] @[export pantograph_environment_catalog]
def env_catalog (env: Environment): Array Name := env.constants.fold (init := #[]) (λ acc name _ => def env_catalog (env: Environment): Array Name := env.constants.fold (init := #[]) (λ acc name _ =>
match isNameInternal name with match isNameInternal name with
| true => acc.push name | false => acc.push name
| false => acc) | true => acc)
@[export pantograph_environment_module_of_name] @[export pantograph_environment_module_of_name]
def module_of_name (env: Environment) (name: Name): Option Name := do def module_of_name (env: Environment) (name: Name): Option Name := do