Attempting to use exception handling, but running into trouble

icyc.scm

@@ -8,12 +8,23 @@
   (cyclone
     (display *Cyc-version-banner*))
   (else #f))
+
+;; 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))))
+
 (define (repl)
   (display "cyclone> ")
   (let ((c (eval (read))))
     (cond
       ((not (eof-object? c))
        (write c)
-       (repl))
+       (repl:next-line))
       (else #f))))
-(repl)
+
+(repl:next-line)