diff options
-rw-r--r-- | test-suite/tests/socket.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/tests/socket.test b/test-suite/tests/socket.test index 718fb9488..8fccc36c5 100644 --- a/test-suite/tests/socket.test +++ b/test-suite/tests/socket.test @@ -277,6 +277,8 @@ (set! server-listening? #t) #t))) + (force-output (current-output-port)) + (force-output (current-error-port)) (if server-listening? (let ((pid (primitive-fork))) ;; Spawn a server process. @@ -365,6 +367,8 @@ (set! server-listening? #t) #t))) + (force-output (current-output-port)) + (force-output (current-error-port)) (if server-listening? (let ((pid (primitive-fork))) ;; Spawn a server process. |