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

net/osx-ssl: fix error handling

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-07 06:55:57 -07:00
parent 9a6726b10d
commit 7db904e984
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/collects/net/osx-ssl.rkt
View File

@ -394,7 +394,7 @@
(cond (cond
[(zero? n) [(zero? n)
(wrap-evt always-evt (lambda (v) #f))] (wrap-evt always-evt (lambda (v) #f))]
[(n . < . -1) [(negative? n)
(raise-osx-ssl-network-error 'write-bytes (raise-osx-ssl-network-error 'write-bytes
(CFWriteStreamGetError out))] (CFWriteStreamGetError out))]
[else n]))] [else n]))]
@ -461,6 +461,7 @@
(close-output-port p))) (close-output-port p)))
(define (raise-osx-ssl-network-error who err) (define (raise-osx-ssl-network-error who err)
(exn:fail:network (raise
(~a who ": failed " (CFStreamError->list err)) (exn:fail:network
(current-continuation-marks))) (~a who ": failed " (CFStreamError->list err))
(current-continuation-marks))))