syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More general tcp-connect error catching.

This commit is contained in:
Tony Garnock-Jones 2017-12-05 17:22:28 +00:00
parent c9ec9f6be9
commit eb564fdb7c
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
racket/syndicate/drivers/tcp.rkt
View File

@ -111,16 +111,15 @@
(define (spawn-tcp-connection local-addr remote-addr) (define (spawn-tcp-connection local-addr remote-addr)
(match-define (tcp-address remote-hostname remote-port) remote-addr) (match-define (tcp-address remote-hostname remote-port) remote-addr)
(define-values (cin cout) (define-values (cin cout)
(with-handlers ([exn:fail:network? (lambda (e) (with-handlers ([exn:fail? (lambda (e)
;; TODO: it'd be nice to ;; TODO: it'd be nice to somehow
;; somehow communicate the ;; communicate the actual error to
;; actual error to the local ;; the local peer.
;; peer. (log-error "~a" (exn->string e))
(log-error "~a" (exn->string e)) (define o (open-output-string))
(define o (open-output-string)) (close-output-port o)
(close-output-port o) (values (open-input-string "")
(values (open-input-string "") o))])
o))])
(tcp:tcp-connect remote-hostname remote-port))) (tcp:tcp-connect remote-hostname remote-port)))
(spawn-connection local-addr remote-addr cin cout)) (spawn-connection local-addr remote-addr cin cout))