X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=AST.icl;h=7b93acbe4170755986bdff0390bdff1412e5e802;hb=6d70a636ed3b4573c4c81ba068ae2b46523c9465;hp=5173c4c71225e263e08d6a3f3acc0ffca08f5287;hpb=2953e6cc260d8243e5434b7e787258ab073d34d2;p=cc1516.git

diff --git a/AST.icl b/AST.icl
index 5173c4c..7b93acb 100644
--- a/AST.icl
+++ b/AST.icl
@@ -111,6 +111,5 @@ instance print Expr where
 	print (EmptyListExpr _) = ["[]"]
 	print (TupleExpr _ (e1, e2)) = ["(":print e1] ++ [",":print e2] ++ [")"]
 
-derive gEq Op2, Type
+derive gEq Op2
 instance == Op2 where (==) o1 o2 = gEq{|*|} o1 o2
-instance == Type where (==) o1 o2 = gEq{|*|} o1 o2