.

original commit: 0fd01393ee41c65cff6c96a97ea5248b04236e0a

collects/mzlib/port.ss

@@ -18,11 +18,11 @@
        (lambda (s start end non-block? breakable?) (- end start))
        void
        (lambda (special non-block?) #t)
-       (lambda (s start end) (wrap-evt
+       (lambda (s start end) (convert-evt
 			      always-evt
 			      (lambda (x)
 				(- end start))))
-       (lambda (special) (wrap-evt always-evt (lambda (x) #t))))))
+       (lambda (special) (convert-evt always-evt (lambda (x) #t))))))
 
   (define (copy-port src dest . dests)
     (unless (input-port? src)
@@ -80,7 +80,7 @@
     (define special-peeked null)
     (define special-peeked-tail #f)
     (define (try-again)
-      (wrap-evt
+      (convert-evt
        (semaphore-peek-evt lock-semaphore)
        (lambda (x) 0)))
     (define (read-it s)

collects/net/mime-unit.ss

@@ -36,7 +36,7 @@
            (lib "unitsig.ss")
            (lib "etc.ss")
            (lib "string.ss")
-           (lib "thread.ss"))
+           (lib "port.ss"))
 
   (provide net:mime@)
   (define net:mime@

collects/net/url-unit.ss

@@ -12,7 +12,7 @@
 (module url-unit mzscheme
   (require (lib "file.ss")
            (lib "unitsig.ss")
-	   (lib "thread.ss")
+	   (lib "port.ss")
 	   "uri-codec.ss"
            "url-sig.ss"
            "tcp-sig.ss")