revent

[cc1516.git] / sem.icl

diff --git a/sem.icl b/sem.icl
index 709071c..31221ca 100644 (file)
--- a/sem.icl
+++ b/sem.icl
@@ -35,7 +35,8 @@ instance toString SemError where
        toString (ParseError p e) = concat [
                toString p,"SemError: ParseError: ", e]
        toString (Error e) = "SemError: " +++ e
-       toString (UnifyErrorStub t1 t2) = toString (UnifyError {line=0,col=0} t1 t2)
+       toString (UnifyErrorStub t1 t2) = toString (UnifyError {line=0,col=0} t1
+t2)
        toString (UnifyError p t1 t2) = concat [
                toString p,
                "SemError: Cannot unify types. Expected: ",
@@ -95,7 +96,8 @@ typeExpr (Op2Expr p e1 BiOr e2) = undef
 typeExpr (Op2Expr p e1 BiCons e2) = undef
 //typeExpr (FunExpr Pos FunCall) = undef
 //typeExpr (EmptyListExpr Pos) = undef
-//typeExpr (VarExpr Pos VarDef) = undef //when checking var-expr, be sure to put the infered type
+//typeExpr (VarExpr Pos VarDef) = undef //when checking var-expr, be sure to
+//put the infered type
                                         //in the context
 
 class unify a :: Type a -> Env Type