better error message

2023-11-29 11:11:07 -07:00
parent 1e7e881791
commit febc5a0252
1 changed files with 1 additions and 1 deletions
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -202,7 +202,7 @@ buildInitialHeap (Program ss) = mapAccumL allocateSc mempty compiled
            | k `elem` domain  = [Push n]
            | otherwise        = [PushGlobal k]
            where
-                n = fromMaybe (error "unknown var") $ lookup k g
+                n = fromMaybe (error $ "undeclared var: " <> k) $ lookup k g
                domain = fmap fst g

        compileC g (IntE n)  = [PushInt n]