From ced70a31577789abb2b602aa25b1db3bba4a26e8 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 27 Apr 2017 22:43:29 -0700 Subject: [PATCH] Fix bug from recent change. --- src/runtime/blowfish.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)) -- 2.25.1