From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 23 Aug 1999 04:47:16 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4462
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ab047ede63def06a077149518661a559703531ca;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index f7f5d1a14..ff5988280 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fileio.scm,v 1.146 1999/08/10 16:54:37 cph Exp $
+;;; $Id: fileio.scm,v 1.147 1999/08/23 04:47:16 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -52,7 +52,7 @@ filename suffix \".bf\"."
 (define (write-encrypted-file region pathname)
   (let ((m (string-append "Encrypting file " (->namestring pathname) "...")))
     (message m)
-    (%blowfish-decrypt-file pathname
+    (%blowfish-encrypt-file pathname
 			    (make-buffer-input-port (region-start region)
 						    (region-end region)))
     (message m "done")))