Changeset 38794 in project


Ignore:
Timestamp:
07/15/20 01:31:52 (4 weeks ago)
Author:
Kon Lovett
Message:

1 prim 4 all

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/eggref/5/message-digest-utils

    r38785 r38794  
    526526    (import sha1 message-digest-item)
    527527    (define source "MD")
     528    (define sha1 (sha1-primitive))
    528529    (define-syntax digest
    529530      (syntax-rules ()
    530531        ((digest ?fl)
    531           (let ((sha1 (sha1-primitive))) (message-digest-file sha1 ?fl)) ) ) ) ) )
     532          (message-digest-file sha1 ?fl) ) ) ) ) )
    532533
    533534(print source " = " (digest TEST-FILE))
Note: See TracChangeset for help on using the changeset viewer.