Don't swallow break exceptions.

2011-11-06 08:16:12 -05:00 · 2011-11-06 08:16:12 -05:00 · 665ca900fa
parent 41c4ecacb1
commit 665ca900fa
1 changed files with 2 additions and 1 deletions
--- 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)