dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Fix unification issues, add debug messages

Browse Source
This commit is contained in:
Steve Dunham
2024-10-02 19:51:19 -07:00
parent 151f678f75
commit 497ef7a9f0
8 changed files with 52 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/Lib/Eval.idr
View File

@@ -102,7 +102,6 @@ quoteSp : (lvl : Nat) -> Tm -> SnocList Val -> M Tm
quoteSp lvl t [<] = pure t
quoteSp lvl t (xs :< x) =
pure $ App emptyFC !(quoteSp lvl t xs) !(quote lvl x)
-- quoteSp lvl (App t !(quote lvl x)) xs -- snoc says previous is right
quote l (VVar fc k sp) = if k < l
then quoteSp l (Bnd emptyFC ((l `minus` k) `minus` 1)) sp -- level to index