strictness, ci

[minfp.git] / gen.icl

diff --git a/gen.icl b/gen.icl
index 01fa272..6c7b5ee 100644 (file)
--- a/gen.icl
+++ b/gen.icl
@@ -8,7 +8,9 @@ import Text
 
 import ast
 
-gen :: AST -> Either [String] [String]
+gen :: Expression -> Either [String] [String]
+gen _ = Left ["genbork"]
+/*
 gen (AST fs) = Right
        ["#include \"rts.h\"\n"
        :genCode fs []
@@ -34,3 +36,4 @@ instance genCode Expression where
        genCode (App a b) c = ["ap(":genCode a [", ":genCode b [")":c]]]
        genCode (Lambda a b) c = abort "help"
        genCode (Builtin b args) c = genCode b ["(":genCode args [")":c]]
+*/