From 9cf71627174aebeabe9149df454785b3ef6b92d8 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 14 Mar 2015 17:10:33 -0700
Subject: 910 - c++: call layer more coherent

---
 cpp/020call | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'cpp/020call')

diff --git a/cpp/020call b/cpp/020call
index 18c54e63..1a7c4b89 100644
--- a/cpp/020call
+++ b/cpp/020call
@@ -7,6 +7,23 @@ recipe f [
 ]
 +mem: storing in location 3
 
+:(replace{} "End Primitive Recipe Implementations." then "default:")
+default: {
+  // unknown op = try to call a defined recipe
+  if (Recipe.find(instructions[pc].operation) == Recipe.end()) {
+    raise << "undefined operation " << instructions[pc].operation << '\n';
+    break;
+  }
+//?   cout << "calling " << instructions[pc].operation << '\n'; //? 2
+  call callee(instructions[pc].operation);
+  for (vector<reagent>::iterator p = instructions[pc].ingredients.begin(); p != instructions[pc].ingredients.end(); ++p) {
+//?     cout << "push back: " << p->to_string() << '\n'; //? 1
+    callee.incoming_atoms.push_back(read_memory(*p));
+  }
+  rr.calls.push(callee);
+  continue;  // not done with caller; don't increment pc
+}
+
 :(scenario "next_ingredient")
 recipe main [
   f 2:literal
-- 
cgit 1.4.1-2-gfad0