diff options
| author | Michael Gran <spk121@yahoo.com> | 2017-04-04 08:54:15 -0700 |
|---|---|---|
| committer | Michael Gran <spk121@yahoo.com> | 2017-04-04 08:54:15 -0700 |
| commit | 42b4a50ea0c73e125857c8cbd7dae4d8833966d8 (patch) | |
| tree | 9cb397cbfe5a5eae897a969c7f4a3b0ca8117323 | |
| parent | 8666a34d5e8ec4e22155b40f55e53f3a652b96f2 (diff) | |
| download | guile-42b4a50ea0c73e125857c8cbd7dae4d8833966d8.tar.gz | |
Fix socket test throw without catch
* test-suite/tests/00-socket.test (AF_UNIX/SOCK_DGRAM, AF_UNIX/SOCK_STREAM): don't throw 'unresolved
| -rw-r--r-- | test-suite/tests/00-socket.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test index 7f55adea1..0df6f0ab0 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))) |