fix Ctl-C handling on setup PLT to not trigger bootstrap mode

svn: r15624
This commit is contained in:
Matthew Flatt 2009-07-29 19:03:35 +00:00
parent a47d94f75f
commit 6a71aca994

View File

@ -103,6 +103,7 @@
;; If something goes wrong, of course, give up on .zo files. ;; If something goes wrong, of course, give up on .zo files.
(parameterize ([uncaught-exception-handler (parameterize ([uncaught-exception-handler
(lambda (exn) (lambda (exn)
(when (exn:break? exn) (exit 1))
(if skip-zo? (if skip-zo?
(escape (escape
(lambda () (raise exn))) (lambda () (raise exn)))