Changeset 38794 in project

Timestamp:

07/15/20 01:31:52 (4 weeks ago)

Author:

Kon Lovett

Message:

1 prim 4 all

File:

• wiki/eggref/5/message-digest-utils (modified) (1 diff)

wiki/eggref/5/message-digest-utils

@@ -526 +526 @@
     (import sha1 message-digest-item)
     (define source "MD")
+    (define sha1 (sha1-primitive))
     (define-syntax digest
       (syntax-rules ()
         ((digest ?fl)
-          (let ((sha1 (sha1-primitive))) (message-digest-file sha1 ?fl)) ) ) ) ) )
+          (message-digest-file sha1 ?fl) ) ) ) ) )
 
 (print source " = " (digest TEST-FILE))