From 4be96bb240ea8518fa95218cba7111846af93baa Mon Sep 17 00:00:00 2001
From: jmoenig <jens@moenig.org>
Date: Mon, 24 Nov 2014 16:02:21 +0100
Subject: tail-call-elimination for reporters - experiment

(commented out, under construction)
---
 history.txt |  1 +
 threads.js  | 28 ++++++++++++++++++++++++++++
 2 files changed, 29 insertions(+)

diff --git a/history.txt b/history.txt
index f710d77..964686e 100755
--- a/history.txt
+++ b/history.txt
@@ -2352,3 +2352,4 @@ ______
 * Threads: Fixed #131
 * snap.html, favicon.ico: new Favicon, thanks, Michael!
 * Threads: improved whitespace detection for “split” primitive, thanks, Michael!
+* Threads: tail-call-elimination for reporters experiment (commented out, under construction)
diff --git a/threads.js b/threads.js
index 1f1915b..a6b824b 100644
--- a/threads.js
+++ b/threads.js
@@ -548,6 +548,34 @@ Process.prototype.reportAnd = function (block) {
     }
 };
 
+/* 
+    tail-call-elimination for reporters
+    -----------------------------------
+    currently under construction, commented out for now
+    to activate add 'doReport' to the list of special forms
+    selectors in evaluateBlock() and comment out / remove
+    the current 'doReport' primitive in the "return"
+    section of the code
+
+Process.prototype.doReport = function (block) {
+
+//    if (this.context.expression.partOfCustomCommand) {
+//        return this.doStopCustomBlock();
+//    }
+
+    var outer = this.context.outerContext;
+    while (this.context && this.context.expression !== 'exitReporter') {
+        if (this.context.expression === 'doStopWarping') {
+            this.doStopWarping();
+        } else {
+            this.popContext();
+        }
+    }
+    this.popContext();
+    this.pushContext(block.inputs()[0], outer);
+};
+*/
+
 // Process: Non-Block evaluation
 
 Process.prototype.evaluateMultiSlot = function (multiSlot, argCount) {
-- 
cgit v1.3.1