[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-107-g854ad
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-107-g854ada4 |
Date: |
Tue, 19 Feb 2013 15:35:44 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-107-g854ada4,
Andy Wingo <=