prepare for infix

[minfp.git] / ast.icl

diff --git a/ast.icl b/ast.icl
index f4d780b..d934dd2 100644 (file)
--- a/ast.icl
+++ b/ast.icl
@@ -20,12 +20,10 @@ instance toString Expression where
 instance toString Value where
        toString (Int i) = toString i
        toString (Bool b) = toString b
-       toString (Char b) = "'" +++ toString b +++ "'"
        toString (Func a as _) = "Function arity " +++ toString a +++ " curried " +++ join "," (map toString as)
 
 instance toString Type where
        toString (TVar a) = toString a
        toString TInt = "Int"
        toString TBool = "Bool"
-       toString TChar = "Char"
        toString (TFun a b) = "(" +++ toString a +++ ") ->" +++ toString b