From 6a71aca9947a6e7cd9cae55788e195331a423e1f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 29 Jul 2009 19:03:35 +0000
Subject: [PATCH] fix Ctl-C handling on setup PLT to not trigger bootstrap mode

svn: r15624
---
 collects/setup/main.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/setup/main.ss b/collects/setup/main.ss
index ddfde737ba..4ab22f6f29 100644
--- 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)))