[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.11-43-gbc945fa

[Eli Zaretskii]

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 <address@hidden>
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