From 0cd90b041f6d9f46c7a941368f2be9f2fcdabcb7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 27 Apr 2017 22:43:09 -0700 Subject: [PATCH] Fix typo in last change. --- src/runtime/crypto.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/runtime/crypto.scm b/src/runtime/crypto.scm index 932de6505..0946d4b22 100644 --- a/src/runtime/crypto.scm +++ b/src/runtime/crypto.scm @@ -270,10 +270,9 @@ USA. (define (%md5-file filename) (call-with-binary-input-file filename - (lambda (port) - (port-consumer (ucode-primitive md5-init 0) - (ucode-primitive md5-update 4) - (ucode-primitive md5-final 1))))) + (port-consumer (ucode-primitive md5-init 0) + (ucode-primitive md5-update 4) + (ucode-primitive md5-final 1)))) (define (md5-string string #!optional start end) (md5-bytevector (string->utf8 string start end))) -- 2.25.1