mike121 pushed a commit to branch wip-cygwin-guile-2.2 in repository guile.
commit 42b4a50ea0c73e125857c8cbd7dae4d8833966d8 Author: Michael Gran <[email protected]> Date: Tue Apr 4 08:54:15 2017 -0700 Fix socket test throw without catch * test-suite/tests/00-socket.test (AF_UNIX/SOCK_DGRAM, AF_UNIX/SOCK_STREAM): don't throw 'unresolved --- test-suite/tests/00-socket.test | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test index 7f55ade..0df6f0a 100644 --- a/test-suite/tests/00-socket.test +++ b/test-suite/tests/00-socket.test @@ -268,7 +268,7 @@ (let ((pid (primitive-fork-if-available))) ;; Spawn a server process. (case pid - ((-1) (throw 'unresolved)) + ((-1) (set! server-pid #f)) ((0) ;; the kid: serve two connections and exit (let serve ((conn (false-if-exception (accept server-socket))) @@ -348,7 +348,7 @@ (let ((pid (primitive-fork-if-available))) ;; Spawn a server process. (case pid - ((-1) (throw 'unresolved)) + ((-1) (set! server-pid #f)) ((0) ;; the kid: send MESSAGE and exit (exit (false-if-exception @@ -446,7 +446,7 @@ (let ((pid (primitive-fork-if-available))) ;; Spawn a server process. (case pid - ((-1) (throw 'unresolved)) + ((-1) (set! server-pid #f)) ((0) ;; the kid: serve two connections and exit (let serve ((conn (false-if-exception (accept server-socket)))
