Fix typo in last change.

diff --git a/src/runtime/crypto.scm b/src/runtime/crypto.scm
index 932de6505d34b2cd7a354cd603756d7c56e80398..0946d4b2236865f2dcc635cf767ebb83a9efa5ec 100644 (file)
--- 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)))