From 444bf8d61f437de1069abb0e11f46eb9f52e814e Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 30 Mar 2016 21:44:00 -0400
Subject: [PATCH] Eval call/cc - allow call/cc to be evaluated

---
 runtime.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/runtime.c b/runtime.c
index 191f3c64..9a0c5999 100644
--- a/runtime.c
+++ b/runtime.c
@@ -2403,7 +2403,7 @@ object apply(void *data, object cont, object func, object args){
 //        args = &c;
 //Cyc_display(&c, stderr);
         count = Cyc_length(data, args);
-//        Cyc_check_num_args(data, "<procedure>", ((closure)func)->num_args, args);
+        Cyc_check_num_args(data, "<procedure>", 1, args);
         dispatch(data, obj_obj2int(count), ((closure)func)->fn, func, cont, args);
       }
       count = Cyc_length(data, args);