Add new operating-system dependency: OS/SET-FILE-MODES-WRITABLE!.

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 00d5bad98db54313a2368a4d31d5e81493257c9f..22df8a1c1c954a0b35350efe76264c066f69217d 100644 (file)
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dos.scm,v 1.18 1994/10/26 20:12:23 adams Exp $
+;;;    $Id: dos.scm,v 1.19 1994/12/19 19:41:51 cph Exp $
 ;;;
 ;;;    Copyright (c) 1992-1994 Massachusetts Institute of Technology
 ;;;
@@ -501,3 +501,6 @@ Includes the new backup.  Must be > 0."
        ((ucode-primitive set-working-directory-pathname! 1) outside)
        (set-working-directory-pathname! outside)
        (start-thread-timer)))))
+
+(define (os/set-file-modes-writable! pathname)
+  (set-file-modes! pathname #o777))
\ No newline at end of file

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index df42b7c70ba47895a357c7bef6c2556079194155..eef70d15d51d2996efc0e0fdee463404da7152e3 100644 (file)
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: fileio.scm,v 1.121 1994/11/20 05:06:21 cph Exp $
+;;;    $Id: fileio.scm,v 1.122 1994/12/19 19:42:13 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -483,7 +483,7 @@ Otherwise, a message is written both before and after long file writes."
                                (->namestring pathname)))
                           (lambda ()
                             (let ((m (file-modes pathname)))
-                              (set-file-modes! pathname #o777)
+                              (os/set-file-modes-writable! pathname)
                               (set! modes m)))))
                     (write-buffer buffer)))
              (if modes

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 2c5e1840a8885852985b860b619563cd37202534..23ace6f08ee8fbf871b60073f1ff5c31b68b8984 100644 (file)
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: unix.scm,v 1.42 1994/03/16 23:26:54 cph Exp $
+;;;    $Id: unix.scm,v 1.43 1994/12/19 19:42:26 cph Exp $
 ;;;
 ;;;    Copyright (c) 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -632,4 +632,7 @@ CANNOT contain the 'F' option."
 
 (define (os/quit dir)
   dir                                  ; ignored
-  (%quit))
\ No newline at end of file
+  (%quit))
+
+(define (os/set-file-modes-writable! pathname)
+  (set-file-modes! pathname #o777))
\ No newline at end of file