TCO WIP

HigherOrderCO · Oct 25, 2024 · 427d638 · 427d638
1 parent 144f2dd
commit 427d638
Show file tree

Hide file tree

Showing 5 changed files with 472 additions and 189 deletions.
diff --git a/src/Kind/API.hs b/src/Kind/API.hs
@@ -30,6 +30,9 @@ import Debug.Trace
 type FileCtx = (Book, M.Map FilePath [String], M.Map FilePath [String])
 type Command = String -> FileCtx -> String -> String -> IO (Either String ())
 
+-- main :: IO ()
+-- main = ctest
+
 main :: IO ()
 main = do
   args     <- getArgs

diff --git a/src/Kind/Check.hs b/src/Kind/Check.hs
@@ -384,7 +384,7 @@ checkUnreachable src cNam term dep = go src cNam term dep where
   go src cNam (Use nam val bod) dep = go src cNam (bod (Con "void" [])) (dep+1)
   go _   cNam (Src src val)     dep = go (Just src) cNam val dep
   go src cNam (Hol nam ctx)     dep = envLog (Found nam (Hol "unreachable" []) ctx dep) >> go src cNam Set dep
-  go src cNam term              dep = return (cNam, Ann False (Num 0) U64)
+  go src cNam term              dep = return (cNam, Ann False Set U64)
 
 checkLater :: Bool -> Maybe Cod -> Term -> Term -> Int -> Env Term
 checkLater False src term typx dep = check False src term typx dep