[Guile-commits] 04/07: Fix socket test throw without catch

[Mike Gran]

mike121 pushed a commit to branch wip-cygwin-guile-2.2
in repository guile.

commit 42b4a50ea0c73e125857c8cbd7dae4d8833966d8
Author: Michael Gran <address@hidden>
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)))