From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Thu, 3 Dec 1992 21:51:34 +0000 (+0000)
Subject: Made MAYBE-WRITE-ENCRYPTED-FILE depend on ENABLE-ENCRYPTED-FILES
X-Git-Tag: 20090517-FFI~8676
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=923010c89de1a18ea5cf7cb5e36d355db84268c5;p=mit-scheme.git

Made MAYBE-WRITE-ENCRYPTED-FILE depend on ENABLE-ENCRYPTED-FILES
instead of ENABLE-COMPRESSED-FILES.
---

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index a3ff1393c..084970398 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: unix.scm,v 1.30 1992/11/18 23:35:14 cph Exp $
+;;;	$Id: unix.scm,v 1.31 1992/12/03 21:51:34 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -490,7 +490,7 @@ filename suffix \".KY\"."
 
 (define (maybe-write-encrypted-file region pathname visit?)
   visit?
-  (and (ref-variable enable-compressed-files (region-start region))
+  (and (ref-variable enable-encrypted-files (region-start region))
        (equal? "KY" (pathname-type pathname))
        (begin
 	 (write-encrypted-file region pathname)