Added default functions, isEmpty does not typecheck...

[cc1516.git] / AST.icl

diff --git a/AST.icl b/AST.icl
index ae4934f..e1f5bc5 100644 (file)
--- a/AST.icl
+++ b/AST.icl
@@ -51,6 +51,8 @@ printStatements [s:ss] i = (case s of
 
 instance print VarDecl where
        print (VarDecl _ t i e) = maybe ["var"] print t ++ [" ":i:"=":print e] ++ [";"]
+instance toString VarDecl where
+    toString v = concat (print v) 
 
 instance toString Type where
        toString t = concat $ print t