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

Fix typo in last change.
---

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)))