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

svn: r15624
2009-07-29 19:03:35 +00:00 · 2009-07-29 19:03:35 +00:00 · 6a71aca994
commit 6a71aca994
parent a47d94f75f
1 changed files with 1 additions and 0 deletions
--- a/collects/setup/main.ss
+++ b/collects/setup/main.ss
@ -103,6 +103,7 @@
 		           ;; If something goes wrong, of course, give up on .zo files.
                           (parameterize ([uncaught-exception-handler
                                           (lambda (exn)
+                                             (when (exn:break? exn) (exit 1))
                                             (if skip-zo?
                                                 (escape
                                                  (lambda () (raise exn)))