fixed printing:)

[cc1516.git] / gen.icl

diff --git a/gen.icl b/gen.icl
index 5183804..6020d03 100644 (file)
--- a/gen.icl
+++ b/gen.icl
@@ -233,6 +233,8 @@ instance g FunDecl where
         foldM foldVarDecl 1 vds  >>|
         //and the statements
         mapM_ g stms >>|
+               //Ugly hack to always return
+               g (ReturnStmt Nothing) >>|
         updateAdressbook (const oldMap) >>| pure ()
 
 annote :: Int String -> Gen ()