Fix typo.

diff --git a/v7/src/runtime/blowfish.scm b/v7/src/runtime/blowfish.scm
index 311cc4f29411db619aa8f74f3bd5d21dbcd26073..cb2eabe92b016c2d2a7c650e73179598c1b77bb3 100644 (file)
--- 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 4a7d616f1f934dbdd9be24dca8ce14d36f83621e..d1a95dea7e607c8fcfc10dae0d4bd58fd6cb71b0 100644 (file)
--- 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)