From febc5a02526f5a43a47c0c7e275033bc63145163 Mon Sep 17 00:00:00 2001 From: crumbtoo Date: Wed, 29 Nov 2023 11:11:07 -0700 Subject: [PATCH] better error message --- src/GM.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/GM.hs b/src/GM.hs index adac732..8a96a17 100644 --- 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]