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.

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index db05d17..c522b74 100644 (file)
--- 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