Made function application force until function is a lambda

johang88 · Mar 13, 2010 · efb0752 · efb0752
1 parent 0933f99
commit efb0752
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/haskell.ast.js b/haskell.ast.js
@@ -67,9 +67,12 @@
 	this.func = func;
 	this.arg = arg;
 	this.eval = function(env) {
-	    clos = this.func.eval(env);
-	    x = clos.expression.pattern;
-	    body = clos.expression.expression;
+	    var clos = this.func.eval(env);
+	    while (clos.expression.type!="Lambda") {
+		clos = clos.force();
+	    };
+	    var x = clos.expression.pattern;
+	    var body = clos.expression.expression;
 	    return body.eval(clos.env.substitute(x, new interpreter.Closure(env, this.arg)));
 	};
     };