From bc93ee7b9faa71dbb25af057b1f59541772c8869 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 5 Aug 2001 16:24:02 +0000
Subject: [PATCH] .

original commit: 1b7e824bd9d7a7116b5d8fbf8505b834f49ee1fb
---
 collects/mzlib/list.ss   | 10 ++++++++--
 collects/mzlib/thread.ss | 15 +++++++++++----
 2 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/collects/mzlib/list.ss b/collects/mzlib/list.ss
index 2b3bcf1..85c45f2 100644
--- a/collects/mzlib/list.ss
+++ b/collects/mzlib/list.ss
@@ -224,10 +224,16 @@
 	     [else (loop (cdr l))]))))))
   
   (define assf
-    (make-find 'assf #f))
+    (let ([a (make-find 'assf #f)])
+      (polymorphic
+       (lambda (f l)
+	 (a f l)))))
   
   (define memf
-    (make-find 'memf #t))
+    (let ([a (make-find 'memf #t)])
+      (polymorphic
+       (lambda (f l)
+	 (a f l)))))
   
   (define filter
     (polymorphic
diff --git a/collects/mzlib/thread.ss b/collects/mzlib/thread.ss
index dd7ca6a..ee8312e 100644
--- a/collects/mzlib/thread.ss
+++ b/collects/mzlib/thread.ss
@@ -200,22 +200,29 @@
       (dynamic-wind
 	  void
 	  (lambda ()
+	    ;; loop to handle connections
 	    (let loop ()
 	      (with-handlers ([not-break-exn? void])
+		;; Make a custodian for the next session:
 		(let ([c (make-custodian)])
 		  (parameterize ([current-custodian c])
-		    (let-values ([(r w) (tcp-accept l)])
-		      (parameterize ([break-enabled #f])
+		    ;; disabled breaks during session set-up...
+		    (parameterize ([break-enabled #f])
+		      ;; ... but enabled breaks while blocked on an accept:
+		      (let-values ([(r w) ((if can-break?
+					       tcp-accept/enable-break
+					       tcp-accept)
+					   l)])
 			;; Handler thread:
 			(let ([t (thread (lambda () 
 					   (when can-break?
 					     (break-enabled #t))
 					   (handler r w)))])
-			  ;; Clean-up thread
+			  ;; Clean-up thread:
 			  (thread (lambda () 
 				    (thread-wait t)
 				    (custodian-shutdown-all c)))
-			  ;; Timeout thread, if any
+			  ;; Timeout thread, if any:
 			  (when connection-timeout
 			    (thread (lambda ()
 				      (sleep connection-timeout)