From 7da71d032cc79b0dbcf962abdbdbb2732143a1d3 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 21 Mar 2015 17:53:20 -0700
Subject: 966 - c++: starting on default-space

---
 cpp/013run | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'cpp/013run')

diff --git a/cpp/013run b/cpp/013run
index 22239667..26436392 100644
--- a/cpp/013run
+++ b/cpp/013run
@@ -26,12 +26,16 @@ struct routine {
   routine(recipe_number r) :running_recipe(r), running_at(0) {}
 };
 
+:(before "End Globals")
+routine Current_routine(0);
+
 :(code)
 void run(recipe_number r) {
   run(routine(r));
 }
 
 void run(routine rr) {
+  Current_routine = rr;
   while (!done(rr)) {
     vector<instruction>& instructions = steps(rr);
     size_t& pc = running_at(rr);
-- 
cgit 1.4.1-2-gfad0