From 923010c89de1a18ea5cf7cb5e36d355db84268c5 Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Thu, 3 Dec 1992 21:51:34 +0000
Subject: [PATCH] Made MAYBE-WRITE-ENCRYPTED-FILE depend on
 ENABLE-ENCRYPTED-FILES instead of ENABLE-COMPRESSED-FILES.

---
 v7/src/edwin/unix.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
-- 
2.25.1