From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Aug 1999 18:27:38 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4491
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1b7f6e58462de7b3c3c6401c8171646c2f36a206;p=mit-scheme.git

Fix typo.
---

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)