[Guile-commits] GNU Guile branch, master, updated. release_1-9-3-67-g5ebc8b8

[Ken Raeburn]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=5ebc8b81411ed261d66b9137e737cb9efe0e5aa8

The branch, master has been updated
       via  5ebc8b81411ed261d66b9137e737cb9efe0e5aa8 (commit)
      from  28af5ee5eccb7797b73ad1caf88183e95eef0a28 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5ebc8b81411ed261d66b9137e737cb9efe0e5aa8
Author: Ken Raeburn <address@hidden>
Date:   Tue Oct 13 11:45:34 2009 -0400

    Flush output before forking, to make test output consistent and avoid
    duplication.
    
    * test-suite/tests/socket.test: Before calling primitive-fork, call
      force-output on the current output and error ports.

-----------------------------------------------------------------------

Summary of changes:
 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 718fb94..8fccc36 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.


hooks/post-receive
-- 
GNU Guile