From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 28 Apr 2017 05:43:29 +0000 (-0700)
Subject: Fix bug from recent change.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~119
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ced70a31577789abb2b602aa25b1db3bba4a26e8;p=mit-scheme.git

Fix bug from recent change.
---

diff --git a/src/runtime/blowfish.scm b/src/runtime/blowfish.scm
index 940e5ee9d..64aefb225 100644
--- a/src/runtime/blowfish.scm
+++ b/src/runtime/blowfish.scm
@@ -38,7 +38,8 @@ USA.
 
 (define (blowfish-available?)
   (load-library-object-file "prbfish" #f)
-  (implemented-primitive-procedure? blowfish-cfb64))
+  (implemented-primitive-procedure?
+   (ucode-primitive blowfish-cfb64-substring-v2 9)))
 
 (define (blowfish-encrypt-port input output key init-vector encrypt?)
   ;; Assumes that INPUT is in blocking mode.
@@ -74,7 +75,7 @@ USA.
 		  #x100000)
 	       (random #x100000))
 	    (quotient t #x100)))
-	((fix:= 8 i))
+	((not (fix:< i 8)))
       (bytevector-u8-set! iv i (remainder t #x100)))
     iv))