summaryrefslogtreecommitdiff
path: root/Compiler.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Compiler.hs')
-rw-r--r--Compiler.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Compiler.hs b/Compiler.hs
index 3a85ae0..347eb4a 100644
--- a/Compiler.hs
+++ b/Compiler.hs
@@ -184,6 +184,7 @@ compileProgram (Program values) = runCM $ do
genTValue :: TaggedValue -> Int -> CM Ref
genTValue (TVList []) _ = throwError "Empty call"
+genTValue (TVList [TVName "do" _]) _ = throwError "Empty 'do'"
genTValue (TVList (TVName "do" _ : stmts)) nextnext = do
forM_ (init stmts) $ \stmt -> do
b <- newBlock