perf: reduce Lean.Parser.Basic imports

This commit is contained in:
Sebastian Ullrich 2022-07-23 23:01:52 +02:00
parent e5891850a7
commit 6a767a66a1
2 changed files with 3 additions and 6 deletions

View file

@ -8,10 +8,7 @@ import Lean.Data.Position
import Lean.Syntax
import Lean.ToExpr
import Lean.Environment
import Lean.Attributes
import Lean.Message
import Lean.Compiler.InitAttr
import Lean.ResolveName
/-!
# Basic Lean parser infrastructure
@ -135,9 +132,6 @@ structure ParserContext extends InputContext, ParserModuleContext where
savedPos? : Option String.Pos := none
forbiddenTk? : Option Token := none
def ParserContext.resolveName (ctx : ParserContext) (id : Name) : List (Name × List String) :=
ResolveName.resolveGlobalName ctx.env ctx.currNamespace ctx.openDecls id
structure Error where
unexpected : String := ""
expected : List String := []

View file

@ -622,6 +622,9 @@ def withOpenDeclFn (p : ParserFn) : ParserFn := fun c s =>
fn := withOpenDeclFn p.fn
}
def ParserContext.resolveName (ctx : ParserContext) (id : Name) : List (Name × List String) :=
ResolveName.resolveGlobalName ctx.env ctx.currNamespace ctx.openDecls id
def parserOfStackFn (offset : Nat) : ParserFn := fun ctx s => Id.run do
let stack := s.stxStack
if stack.size < offset + 1 then