[Guile-commits] 02/04: socket test should not throw unresolved outside of a test

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit cdcdd29e8e19af93864980337ec596c6e7bd43a9
Author: Mike Gran <spk121@yahoo.com>
AuthorDate: Sat Jan 23 10:00:07 2021 -0800

    socket test should not throw unresolved outside of a test
    
    * test-suite/tests/00-socket.test: don't throw at top level
---
 test-suite/tests/00-socket.test | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test
index f43f833..027bd85 100644
--- a/test-suite/tests/00-socket.test
+++ b/test-suite/tests/00-socket.test
@@ -360,7 +360,8 @@
             (let ((pid (primitive-fork-if-available)))
               ;; Spawn a server process.
               (case pid
-                ((-1) (throw 'unresolved))
+                ((-1)
+                 #f)
                 ((0)   ;; the kid: send MESSAGE and exit
                  (exit
                   (false-if-exception
@@ -458,7 +459,8 @@
             (let ((pid (primitive-fork-if-available)))
              ;; Spawn a server process.
              (case pid
-               ((-1) (throw 'unresolved))
+               ((-1)
+                 #f)
                ((0)   ;; the kid:  serve two connections and exit
                 (let serve ((conn
                              (false-if-exception (accept server-socket)))