printen en parsen voor de demo

[cc1516.git] / gen.icl

diff --git a/gen.icl b/gen.icl
index e9d6cac..eba5a1d 100644 (file)
--- a/gen.icl
+++ b/gen.icl
@@ -178,6 +178,7 @@ instance g Expr where
                        ,Instr "ldc" [Lit 0] ""
                        ,Instr "sth" [] ""
                        ,Instr "ajs" [Lit -1] ""]
+               Nothing = liftT $ Left $ Error "PANIC: unresolver variable expr"
     g (LambdaExpr _ _ _) = liftT $ Left $ Error "PANIC: Lambdas should be unfolded"
     g (FunExpr _ k es fs) = funnyStuff k es fs