try letrec

[minfp.git] / ast.icl

diff --git a/ast.icl b/ast.icl
index d934dd2..2714a0c 100644 (file)
--- a/ast.icl
+++ b/ast.icl
@@ -3,9 +3,6 @@ implementation module ast
 import StdEnv
 import Text
 
-instance toString AST where
-       toString (AST f) = join "\n" (map toString f)
-
 instance toString Function where
        toString (Function i a e) = concat [toString i, " ", join " " (map toString a), " = ", toString e]