[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-182-ge9381f5

[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=e9381f58d1b0c9d8882328efecf938b45817e3dd

The branch, stable-2.0 has been updated
       via  e9381f58d1b0c9d8882328efecf938b45817e3dd (commit)
       via  cfe24bc4deef6f52ad3e07ffc513160890db4ff3 (commit)
      from  84dfde82ae8f6ec247c1c147c1e2ae50b207bad9 (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 e9381f58d1b0c9d8882328efecf938b45817e3dd
Author: Jason Earl <address@hidden>
Date:   Sun Mar 10 20:20:49 2013 +0100

    fix AC_CHECK_DECLS for `alarm'
    
    * configure.ac: Fix decl check for `alarm'.

commit cfe24bc4deef6f52ad3e07ffc513160890db4ff3
Author: Jason Earl <address@hidden>
Date:   Sun Mar 10 20:12:05 2013 +0100

    use chmod portably in (system base compile)
    
    * module/system/base/compile.scm (call-with-output-file/atomic): Call
      chmod with the file name instead of the port.

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

Summary of changes:
 configure.ac                   |    2 +-
 module/system/base/compile.scm |    4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/configure.ac b/configure.ac
index 62ceb3a..b441598 100644
--- a/configure.ac
+++ b/configure.ac
@@ -919,7 +919,7 @@ AC_DEFUN([GUILE_FUNC_DECLARED], [
 GUILE_FUNC_DECLARED(sleep, unistd.h)
 GUILE_FUNC_DECLARED(usleep, unistd.h)
 
-AC_CHECK_DECLS([getlogin alarm])
+AC_CHECK_DECLS([getlogin, alarm])
 
 AC_CHECK_DECLS([strptime],,,
 [#define _GNU_SOURCE /* ask glibc to give strptime prototype */
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index db05d17..c522b74 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -57,7 +57,9 @@
        (with-throw-handler #t
          (lambda ()
            (proc tmp)
-           (chmod tmp (logand #o0666 (lognot (umask))))
+           ;; Chmodding by name instead of by port allows this chmod to
+           ;; work on systems without fchmod, like MinGW.
+           (chmod template (logand #o0666 (lognot (umask))))
            (close-port tmp)
            (rename-file template filename))
          (lambda args


hooks/post-receive
-- 
GNU Guile