wip compile, drop let

This commit is contained in:
2024-07-14 16:48:11 -07:00
parent 127a1e7f00
commit a385d1225d
4 changed files with 26 additions and 6 deletions

View File

@@ -19,7 +19,6 @@ data PRen = PR Nat Nat (List Nat)
-- IORef for metas needs IO
forceMeta : Val -> M Val
-- TODO - need to look up metas
forceMeta (VMeta ix sp) = case !(lookupMeta ix) of
(Unsolved pos k xs) => pure (VMeta ix sp)
(Solved k t) => vappSpine t sp