From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Jan 1999 06:32:51 +0000 (+0000)
Subject: Fix bug from last change: don't check file header when writing
X-Git-Tag: 20090517-FFI~4683
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6ae941a6193b15e5410ede7ac67150987d3c2bd1;p=mit-scheme.git

Fix bug from last change: don't check file header when writing
encrypted file, because the file might not exist.
---

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index 8c9d2789a..8f3738db3 100644
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dosfile.scm,v 1.24 1999/01/14 18:37:44 cph Exp $
+;;; $Id: dosfile.scm,v 1.25 1999/01/16 06:32:51 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-1999 Massachusetts Institute of Technology
 ;;;
@@ -572,7 +572,7 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
      . ,(lambda (pathname mark visit?)
 	  visit?
 	  (read-compressed-file "gzip -d" pathname mark)))
-    (,read/write-encrypted-file?
+    (,(read/write-encrypted-file? #f)
      . ,(lambda (pathname mark visit?)
 	  visit?
 	  (read-encrypted-file pathname mark)))))
@@ -582,7 +582,7 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
      . ,(lambda (region pathname visit?)
 	  visit?
 	  (write-compressed-file "gzip" region pathname)))
-    (,read/write-encrypted-file?
+    (,(read/write-encrypted-file? #t)
      . ,(lambda (region pathname visit?)
 	  visit?
 	  (write-encrypted-file region pathname)))))
@@ -671,11 +671,11 @@ filename suffixes \".bf\" and \".ky\"."
   #t
   boolean?)
 
-(define (read/write-encrypted-file? group pathname)
+(define ((read/write-encrypted-file? write?) group pathname)
   (and (ref-variable enable-encrypted-files group)
        (or (and (equal? "bf" (pathname-type pathname))
 		(blowfish-available?)
-		(blowfish-file? pathname))
+		(or write? (blowfish-file? pathname)))
 	   (equal? "ky" (pathname-type pathname)))))
 
 (define (read-encrypted-file pathname mark)