From 30241e57b854df101e70176ad5dd8f40502aaf6b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 10 Apr 2000 04:03:37 +0000
Subject: [PATCH] Update to match change to MD5 support in runtime system.

---
 v7/src/edwin/filcom.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 776a06e37..639566424 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.210 2000/03/27 20:43:22 cph Exp $
+;;; $Id: filcom.scm,v 1.211 2000/04/10 04:03:37 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -698,7 +698,7 @@ Prefix arg means treat the plaintext file as binary data."
 (define (%blowfish-encrypt-file pathname input)
   (call-with-binary-output-file pathname
     (lambda (output)
-      (call-with-sensitive-string (call-with-confirmed-pass-phrase md5)
+      (call-with-sensitive-string (call-with-confirmed-pass-phrase md5-string)
 	(lambda (key-string)
 	  (blowfish-encrypt-port input output key-string
 				 (write-blowfish-file-header output)
@@ -707,11 +707,12 @@ Prefix arg means treat the plaintext file as binary data."
 (define (%blowfish-decrypt-file pathname output)
   (call-with-binary-input-file pathname
     (lambda (input)
-      (call-with-sensitive-string (call-with-pass-phrase "Pass phrase" md5)
-	(lambda (key-string)
-	  (blowfish-encrypt-port input output key-string
-				 (read-blowfish-file-header input)
-				 #f))))))
+      (call-with-sensitive-string
+       (call-with-pass-phrase "Pass phrase" md5-string)
+       (lambda (key-string)
+	 (blowfish-encrypt-port input output key-string
+				(read-blowfish-file-header input)
+				#f))))))
 
 (define (call-with-sensitive-string string receiver)
   (dynamic-wind (lambda ()
-- 
2.25.1