From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 28 Jun 2002 18:20:35 +0000 (+0000)
Subject: Require MD5 availability to support encryption.
X-Git-Tag: 20090517-FFI~2171
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aff15a4fcd7b75563f5189c07dd726147f1dbdf9;p=mit-scheme.git

Require MD5 availability to support encryption.
---

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index dae233af5..0a7732e7d 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fileio.scm,v 1.157 2002/02/25 18:53:02 cph Exp $
+;;; $Id: fileio.scm,v 1.158 2002/06/28 18:20:19 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2002 Massachusetts Institute of Technology
 ;;;
@@ -35,6 +35,7 @@ filename suffix \".bf\"."
 (define ((read/write-encrypted-file? write?) group pathname)
   (and (ref-variable enable-encrypted-files group)
        (equal? "bf" (pathname-type pathname))
+       (md5-available?)
        (blowfish-available?)
        (or write? (blowfish-file? pathname))
        #t))
diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index b73ce30bf..cae2cab37 100644
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 3.114 2002/02/03 04:31:55 cph Exp $
+$Id: make.scm,v 3.115 2002/06/28 18:20:35 cph Exp $
 
 Copyright (c) 1989-2002 Massachusetts Institute of Technology
 
@@ -36,4 +36,4 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
        (load-package-set "edwin"
 	 `((alternate-package-loader
 	    . ,(load "edwin.bld" system-global-environment))))))))
-(add-identification! "Edwin" 3 112)
\ No newline at end of file
+(add-identification! "Edwin" 3 113)
\ No newline at end of file