diff options
| -rw-r--r-- | Compiler.hs | 1 |
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 |