feat: Expose _private names
This commit is contained in:
parent
f72a82a4c9
commit
c80d7567b6
|
@ -4,7 +4,7 @@ namespace Pantograph
|
||||||
|
|
||||||
def is_symbol_unsafe_or_internal (n: Lean.Name) (info: Lean.ConstantInfo): Bool :=
|
def is_symbol_unsafe_or_internal (n: Lean.Name) (info: Lean.ConstantInfo): Bool :=
|
||||||
let nameDeduce: Bool := match n.getRoot with
|
let nameDeduce: Bool := match n.getRoot with
|
||||||
| .str _ name => name.startsWith "_" ∨ name == "Lean"
|
| .str _ name => name == "Lean"
|
||||||
| _ => true
|
| _ => true
|
||||||
nameDeduce ∨ info.isUnsafe
|
nameDeduce ∨ info.isUnsafe
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue