From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Dec 1994 19:42:26 +0000 (+0000)
Subject: Add new operating-system dependency: OS/SET-FILE-MODES-WRITABLE!.
X-Git-Tag: 20090517-FFI~6864
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5122e095f754d38f3f3ac7e9dbd52e40a49d9d09;p=mit-scheme.git

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 00d5bad98..22df8a1c1 100644
--- 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 df42b7c70..eef70d15d 100644
--- 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 2c5e1840a..23ace6f08 100644
--- 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