[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-107-g854ada4

[Andy Wingo]

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=854ada4f1af8d72859b77e8764729f3cca45460a

The branch, stable-2.0 has been updated
       via  854ada4f1af8d72859b77e8764729f3cca45460a (commit)
       via  0725031fe3a95d4e61e76ffa7aa1c79d4bebb00f (commit)
      from  9b6316eabcd3438ca01d1bf7269702af24c3ec5f (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 854ada4f1af8d72859b77e8764729f3cca45460a
Author: Eli Zaretskii <address@hidden>
Date:   Tue Feb 19 16:34:32 2013 +0100

    Fix startup of guile.exe on MS-Windows.
    
    * module/system/base/compile.scm (call-with-output-file/atomic):  Call
      close-port before deleting the temporary file name, otherwise deletion
      fails on MS-Windows (cannot delete a file that is still open).

commit 0725031fe3a95d4e61e76ffa7aa1c79d4bebb00f
Author: Andy Wingo <address@hidden>
Date:   Tue Feb 19 15:09:32 2013 +0100

    add link to doc about UNC names
    
    * module/ice-9/boot-9.scm (compile-time-case): Add link to docs about
      UNC names.

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

Summary of changes:
 module/ice-9/boot-9.scm        |    3 ++-
 module/system/base/compile.scm |    3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 991eb3b..e748edd 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -1454,7 +1454,8 @@ VALUE."
      (define (absolute-file-name? file-name)
        (define (unc-file-name?)
          ;; Universal Naming Convention (UNC) file-names start with \\,
-         ;; and are always absolute.
+         ;; and are always absolute.  See:
+         ;;   
http://msdn.microsoft.com/en-us/library/windows/desktop/aa365247(v=vs.85).aspx#fully_qualified_vs._relative_paths
          (string-prefix? "\\\\" file-name))
        (define (has-drive-specifier?)
          (and (>= (string-length file-name) 2)
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index f3e4641..db05d17 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -48,7 +48,7 @@
         thunk
         (lambda () #t))))
 
-;; (put 'call-with-output-file/atomic 'scheme-indent-function 1)
+;; emacs: (put 'call-with-output-file/atomic 'scheme-indent-function 1)
 (define* (call-with-output-file/atomic filename proc #:optional reference)
   (let* ((template (string-append filename ".XXXXXX"))
          (tmp (mkstemp! template)))
@@ -61,6 +61,7 @@
            (close-port tmp)
            (rename-file template filename))
          (lambda args
+           (close-port tmp)
            (delete-file template)))))))
 
 (define (ensure-language x)


hooks/post-receive
-- 
GNU Guile