From 665ca900faef9ff0b8797524511dcf8fcd8ad5a6 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sun, 6 Nov 2011 08:16:12 -0500
Subject: [PATCH] Don't swallow break exceptions.

---
 driver.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/driver.rkt b/driver.rkt
index e2a5e44..8659ce0 100644
--- a/driver.rkt
+++ b/driver.rkt
@@ -145,7 +145,8 @@
   (udp-bind! s #f port-number)
 
   (define (service-loop)
-    (with-handlers ((exn? (lambda (e)
+    (with-handlers ((exn:break? (lambda (e) (raise e)))
+		    (exn? (lambda (e)
 			    (display "Error in DNS service handler:") (newline)
 			    (write e)
 			    (newline)