From 89526d79e8fa0e7fcfbc29daa395373300237ed0 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 22 Mar 2015 08:58:43 -0400
Subject: [PATCH] call/cc integration

---
 icyc.scm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/icyc.scm b/icyc.scm
index 285a6b02..4025a47a 100644
--- a/icyc.scm
+++ b/icyc.scm
@@ -12,11 +12,16 @@
 ;; TODO: define repl iteration, and wrap in an exception handler
 
 (define (repl:next-line)
-  (with-exception-handler
-    (lambda (obj)
-      (write (list 'an-error-occurred obj)))
-    (lambda ()
-      (repl))))
+;  (call/cc
+;    (lambda (continue)
+      (with-exception-handler
+        (lambda (obj)
+          (write (list 'an-error-occurred obj))
+);          (continue #t))
+        (lambda ()
+          (repl)))) ;)
+;  (repl:next-line))
+;#f)
 
 (define (repl)
   (display "cyclone> ")