ref: 9ebdd828128494e7d05ad73b6b1352b2c596e939
parent: 014948ff9d59fcbb490a61773af9ba2488a3db37
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Thu Feb 8 19:23:58 EST 2024
Add function to get local keys
--- a/src/MicroHs/TCMonad.hs
+++ b/src/MicroHs/TCMonad.hs
@@ -68,6 +68,9 @@
stElemsLcl :: forall a . SymTab a -> [a]
stElemsLcl (SymTab _genv lenv) = map snd lenv
+stKeysLcl :: forall a . SymTab a -> [Ident]
+stKeysLcl (SymTab _genv lenv) = map fst lenv
+
stInsertLcl :: forall a . Ident -> a -> SymTab a -> SymTab a
stInsertLcl i a (SymTab genv lenv) = SymTab genv ((i,a) : lenv)
--
⑨