X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=lambda_evaluator.mdwn;h=93870a559a704c9fa221c0951427775416076d17;hb=2ee0d2918d40efc78e75ce8fbc6ae90f8edf6541;hp=d46fc78577d3884c031e3f8446185283ddb3568a;hpb=eb2a14f6c7111e6c308b72dd0e8567e4296fcfe0;p=lambda.git

diff --git a/lambda_evaluator.mdwn b/lambda_evaluator.mdwn
index d46fc785..93870a55 100644
--- a/lambda_evaluator.mdwn
+++ b/lambda_evaluator.mdwn
@@ -38,6 +38,7 @@ let and = \l r. l r false in
 )
 </textarea>
 <input id="PARSE" value="Normalize" type="button">
+<input id="ETA" type="checkbox">do eta-reductions too
 <noscript><p>You may not see it because you have JavaScript turned off. Uffff!</p></noscript>
 <script src="/code/lambda.js"></script>
 <script src="/code/tokens.js"></script>
@@ -78,7 +79,7 @@ Object.prototype.error = function (message, t) {
     var parse = make_parse();
 
     function go(source) {
-        var string, tree, expr;
+        var string, tree, expr, eta;
         try {
             tree = parse(source);
  //           string = JSON.stringify(tree, ['key', 'name', 'message', 'value', 'arity', 'first', 'second', 'third', 'fourth'], 4);
@@ -86,7 +87,8 @@ Object.prototype.error = function (message, t) {
             // string = JSON.stringify(expr, ['key', 'name', 'message', 'value', 'arity', 'first', 'second', 'tag', 'variable', 'left', 'right', 'bound', 'body' ], 4);
 //			string = expr.to_string() + "\n\n~~>\n\n";
 			string = '';
-			string = string + reduce(expr, false, false).to_string();
+			eta = document.getElementById('ETA').checked;
+			string = string + reduce(expr, eta, false).to_string();
         } catch (e) {
             string = JSON.stringify(e, ['name', 'message', 'from', 'to', 'key',
                     'value', 'arity', 'first', 'second', 'third', 'fourth'], 4);