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=bc945fadd2e94c5ddf1a5b42e7eef5726b5b1068 The branch, stable-2.0 has been updated via bc945fadd2e94c5ddf1a5b42e7eef5726b5b1068 (commit) from 4698a11cbdb057953cf4e02126c701d875cc1f42 (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 bc945fadd2e94c5ddf1a5b42e7eef5726b5b1068 Author: Eli Zaretskii <[email protected]> Date: Wed Jul 2 21:21:52 2014 +0300 More fixes for deleting files whose ports are not closed. * test-suite/tests/r6rs-files.test: Close the port after using it. * test-suite/tests/posix.test ("mkstemp!"): Close the port after using it. ----------------------------------------------------------------------- Summary of changes: test-suite/tests/posix.test | 1 + test-suite/tests/r6rs-files.test | 4 +++- 2 files changed, 4 insertions(+), 1 deletions(-) diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test index 00e9c68..00632d8 100644 --- a/test-suite/tests/posix.test +++ b/test-suite/tests/posix.test @@ -73,6 +73,7 @@ (str (string-copy template)) (port (mkstemp! str)) (result (not (string=? str template)))) + (close-port port) (delete-file str) result))) diff --git a/test-suite/tests/r6rs-files.test b/test-suite/tests/r6rs-files.test index df5dd22..b1b93d1 100644 --- a/test-suite/tests/r6rs-files.test +++ b/test-suite/tests/r6rs-files.test @@ -24,7 +24,9 @@ (with-test-prefix "delete-file" (pass-if "delete-file deletes file" - (let ((filename (port-filename (mkstemp! "T-XXXXXX")))) + (let* ((port (mkstemp! "T-XXXXXX")) + (filename (port-filename port))) + (close-port port) (delete-file filename) (not (file-exists? filename)))) hooks/post-receive -- GNU Guile
