case statement fixes

This commit is contained in:
2024-09-07 10:55:51 -07:00
parent 1d1dd678c3
commit 26ed1355f5
4 changed files with 35 additions and 60 deletions

View File

@@ -60,8 +60,6 @@ mkEnv nm k env (x :: xs) = mkEnv nm (S k) (Dot (Var nm) "h\{show k}" :: env) xs
envNames : Env -> List String
-- If I was golfing, I'd be tempted to stick with deBruijn
||| given a name, find a similar one that doesn't shadow in Env
fresh : String -> JSEnv -> String
fresh nm env = if free env nm then nm else go nm 1