repl printing is now interruptable without exiting ikarus

scheme/ikarus.cafe.ss

@@ -69,7 +69,8 @@ description:
           (display-prompt 0)
           (let ([x (with-exception-handler
                      (lambda (ex)
-                       (cond [(lexical-violation? ex)
+                       (cond 
+                         [(lexical-violation? ex)
                           (print-ex ex)
                           (reset k)]
                          [(interrupted-condition? ex)
@@ -101,10 +102,19 @@ description:
                            (eval-proc x))))))
                  (lambda v*
                    (unless (andmap (lambda (v) (eq? v (void))) v*)
+                     (with-exception-handler
+                       (lambda (ex)
+                         (cond 
+                           [(interrupted-condition? ex)
+                            (flush-output-port (console-output-port))
+                            (newline (console-output-port))
+                            (reset k)]
+                           [else (raise-continuable ex)]))
+                       (lambda ()
                          (for-each
                            (lambda (v)
                              (pretty-print v (console-output-port)))
-                       v*))))]))))
+                           v*))))))]))))
       (wait eval-proc escape-k)))
 
   (define do-new-cafe

scheme/last-revision

@@ -1 +1 @@
-1694
+1695