sanity checks

[cc1516.git] / AST.icl

diff --git a/AST.icl b/AST.icl
index 90d1e53..6f2e5c6 100644 (file)
--- a/AST.icl
+++ b/AST.icl
@@ -110,3 +110,6 @@ printFunCall s args = [s, "(":printersperse "," args] ++ [")"]
 
 derive gEq Op2
 instance == Op2 where (==) o1 o2 = gEq{|*|} o1 o2
+
+instance zero Pos where
+       zero = {line=0, col=0}