.

original commit: 1b7e824bd9d7a7116b5d8fbf8505b834f49ee1fb

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

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)