conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

repl exception handler now returns for non-serious conditions 

(as per bug 242900)
This commit is contained in:
Abdulaziz Ghuloum 2008-07-07 00:50:19 -07:00
parent badf83557f
commit b15c7063f9
2 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
scheme/ikarus.cafe.ss
View File

@ -70,26 +70,29 @@ description:
(with-exception-handler (with-exception-handler
(lambda (con) (lambda (con)
(reset-input-port! (console-input-port)) (reset-input-port! (console-input-port))
(flush-output-port (console-output-port))
(display "Unhandled exception\n" (console-error-port))
(print-condition con (console-error-port))
(k (void))) (k (void)))
(lambda () (lambda ()
(display-prompt 0) (with-exception-handler
(let ([x (my-read k)]) (lambda (con)
(cond (flush-output-port (console-output-port))
[(eof-object? x) (display "Unhandled exception\n" (console-error-port))
(newline (console-output-port)) (print-condition con (console-error-port)))
(escape-k (void))] (lambda ()
[else (display-prompt 0)
(call-with-values (let ([x (my-read k)])
(lambda () (eval-proc x)) (cond
(lambda v* [(eof-object? x)
(unless (andmap (lambda (v) (eq? v (void))) v*) (newline (console-output-port))
(for-each (escape-k (void))]
(lambda (v) [else
(pretty-print v (console-output-port))) (call-with-values
v*))))])))))) (lambda () (eval-proc x))
(lambda v*
(unless (andmap (lambda (v) (eq? v (void))) v*)
(for-each
(lambda (v)
(pretty-print v (console-output-port)))
v*))))]))))))))
(wait eval-proc escape-k))) (wait eval-proc escape-k)))
(define do-new-cafe (define do-new-cafe

2
scheme/last-revision
View File

@ -1 +1 @@
1528 1529