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

chore: Version 0.3 #136

Open
aniva wants to merge 600 commits from dev into main
pull from: dev
merge into: aniva:main
Conversation 0 Commits 600 Files Changed 47 +2 -1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 3b4b196a30 - Show all commits

3
Pantograph/Delate.lean
View File

@ -170,7 +170,8 @@ def instantiateAll (e: Expr): MetaM Expr := do
| .some mapp => | .some mapp =>
let .some matcherInfo := (← getEnv).find? mapp.matcherName | panic! "Matcher must exist" let .some matcherInfo := (← getEnv).find? mapp.matcherName | panic! "Matcher must exist"
let f ← Meta.instantiateValueLevelParams matcherInfo mapp.matcherLevels.toList let f ← Meta.instantiateValueLevelParams matcherInfo mapp.matcherLevels.toList
return .visit (f.betaRev e'.getAppRevArgs (useZeta := true)) let mdata := KVMap.empty.insert `matcher (DataValue.ofName mapp.matcherName)
return .visit $ .mdata mdata (f.betaRev e'.getAppRevArgs (useZeta := true))
return e return e
structure DelayedMVarInvocation where structure DelayedMVarInvocation where