1520 - repl kinda working

But we really should test the top-level integration with
'run-interactive'.

1 files changed, 13 insertions, 1 deletions

diff --git a/078run_interactive.cc b/078run_interactive.cc
index 1075c922..910147f1 100644
--- a/078run_interactive.cc
+++ b/078run_interactive.cc
@@ -19,7 +19,7 @@ case RUN_INTERACTIVE: {
 //  just an integer prints value of that location in memory
 //  instruction executes
 //  backspace at start begins new attempt
-//  ctrl-d working [not after first instruction is run]
+//  ctrl-d working
 void run_interactive(long long int address) {
 //?   tb_shutdown(); //? 1
   long long int size = Memory[address];
@@ -61,3 +61,15 @@ void run_interactive(long long int address) {
 //?   cerr << "interactive transformed_until: " << Recipe[Recipe_number["interactive"]].transformed_until << '\n'; //? 1
   Current_routine->calls.push_front(call(Recipe_number["interactive"]));
 }
+
+//:: debugging tool
+
+:(before "End Primitive Recipe Declarations")
+_RUN_DEPTH,
+:(before "End Primitive Recipe Numbers")
+Recipe_number["$run-depth"] = _RUN_DEPTH;
+:(before "End Primitive Recipe Implementations")
+case _RUN_DEPTH: {
+  cerr << Current_routine->calls.size();
+  break;
+}