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 <e...@gnu.org> 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 <wi...@pobox.com> 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
