From dd976cbb769fb619066c95875b58a9908cbec1ba Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 2 Mar 2015 13:58:05 -0500
Subject: [PATCH] WIP - experimental eval

---
 runtime.h | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/runtime.h b/runtime.h
index a99a9fc1..d2e40af9 100644
--- a/runtime.h
+++ b/runtime.h
@@ -1482,8 +1482,10 @@ static object apply(object cont, object func, object args){
 //#define funcall2(cfn,a1,a2) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(1, (closure)a1, cfn,a2); } else { ((cfn)->fn)(2,cfn,a1,a2);}
     case cons_tag:
       if (!nullp(func) && eq(quote_Cyc_191procedure, car(func))) {
-          printf("TODO: apply compound proc\n");
-          exit(1);
+          //printf("TODO: apply compound proc\n");
+          Cyc_display(func);
+          //exit(1);
+          ((closure)__glo_eval)->fn(2, __glo_eval, cont, func);
       } else {
           printf("Unable to evaluate list\n");
           exit(1);