From 501985468cd35a4bd71253e4e233ba6043bfb0c2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Oct 1996 18:51:12 +0000
Subject: [PATCH] Adjust handling of file modes that are now Win32 attributes
 rather than unix mode bits.

---
 v7/src/edwin/dos.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 7a012584f..d693a1467 100644
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dos.scm,v 1.38 1996/10/07 18:21:20 cph Exp $
+;;;	$Id: dos.scm,v 1.39 1996/10/07 18:51:12 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-96 Massachusetts Institute of Technology
 ;;;
@@ -76,13 +76,11 @@
 		(loop (cdr pathnames))))))))
 
 (define (os/set-file-modes-writable! pathname)
-  (set-file-modes! pathname #o777))
+  (set-file-modes! pathname
+		   (fix:andc (file-modes pathname) nt-file-mode/read-only)))
 
-(define os/restore-modes-to-updated-file!
-  ;; **** If implementation is changed so that file modes are DOS
-  ;; attributes rather than an emulation of unix modes, this will have
-  ;; to be changed to work like the OS/2 code.  ****
-  set-file-modes!)
+(define (os/restore-modes-to-updated-file! pathname modes)
+  (set-file-modes! pathname (fix:or modes nt-file-mode/archive)))
 
 (define (os/scheme-can-quit?)
   #t)
-- 
2.25.1