Adjust handling of file modes that are now Win32 attributes rather

than unix mode bits.

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 7a012584f8ac6d2b7e262cc4a39801ff1630fa6b..d693a1467d3c7ff10eb61e9ea70d5857d5510bb7 100644 (file)
--- 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)