suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 0fd01393ee41c65cff6c96a97ea5248b04236e0a
This commit is contained in:
Matthew Flatt 2004-05-11 13:13:10 +00:00
parent 58c6293792
commit 3acacdbbab
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mzlib/port.ss
View File

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

2
collects/net/mime-unit.ss
View File

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

2
collects/net/url-unit.ss
View File

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