net/osx-ssl: fix error handling

2016-01-07 06:55:57 -07:00 · 2016-01-07 06:55:57 -07:00 · 7db904e984
commit 7db904e984
parent 9a6726b10d
1 changed files with 5 additions and 4 deletions
--- a/racket/collects/net/osx-ssl.rkt
+++ b/racket/collects/net/osx-ssl.rkt
@ -394,7 +394,7 @@
          (cond
           [(zero? n)
            (wrap-evt always-evt (lambda (v) #f))]
-           [(n . < . -1)
+           [(negative? n)
            (raise-osx-ssl-network-error 'write-bytes
                                         (CFWriteStreamGetError out))]
           [else n]))]
@ -461,6 +461,7 @@
      (close-output-port p)))

 (define (raise-osx-ssl-network-error who err)
+  (raise
   (exn:fail:network
    (~a who ": failed " (CFStreamError->list err))
-   (current-continuation-marks)))
+    (current-continuation-marks))))