From 1b7f6e58462de7b3c3c6401c8171646c2f36a206 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Aug 1999 18:27:38 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/runtime/blowfish.scm | 8 ++++----
 v7/src/runtime/cpress.scm   | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/runtime/blowfish.scm b/v7/src/runtime/blowfish.scm
index 311cc4f29..cb2eabe92 100644
--- a/v7/src/runtime/blowfish.scm
+++ b/v7/src/runtime/blowfish.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: blowfish.scm,v 1.11 1999/08/09 18:25:45 cph Exp $
+$Id: blowfish.scm,v 1.12 1999/08/09 18:27:38 cph Exp $
 
 Copyright (c) 1997, 1999 Massachusetts Institute of Technology
 
@@ -75,10 +75,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  ((ucode-primitive blowfish-set-key 1) string)))
 
   (set! blowfish-cbc
-	(lambda (input key init-vector encrypt?)
+	(lambda (input output key init-vector encrypt?)
 	  (check-key)
-	  ((ucode-primitive blowfish-cbc-v2 5) input key init-vector
-					       encrypt?)))
+	  ((ucode-primitive blowfish-cbc-v2 5)
+	   input output key init-vector encrypt?)))
 
   (set! blowfish-cfb64
 	(lambda (input input-start input-end output output-start
diff --git a/v7/src/runtime/cpress.scm b/v7/src/runtime/cpress.scm
index 4a7d616f1..d1a95dea7 100644
--- a/v7/src/runtime/cpress.scm
+++ b/v7/src/runtime/cpress.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cpress.scm,v 1.11 1999/08/09 18:23:40 cph Exp $
+$Id: cpress.scm,v 1.12 1999/08/09 18:26:47 cph Exp $
 
 Copyright (c) 1992-1999 Massachusetts Institute of Technology
 
@@ -710,7 +710,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (define (flush-output-buffer)
   (let ((ob output-buffer))
     (if (fix:< 0 (car ob))
-	(output-port/write-bytes output-port (cdr ob) 0 (car ob))))
+	(output-port/write-substring output-port (cdr ob) 0 (car ob))))
   (output-port/flush-output output-port))
 
 (define (uncompress ifile ofile)
-- 
2.25.1