Ignore:
Timestamp:
07/15/18 21:52:12 (2 years ago)
Author:
Kon Lovett
Message:

make-message-digest-primitive-context should take mdp

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/message-digest-primitive/trunk/message-digest-primitive.scm

    r35827 r35915  
    119119;;
    120120
    121 (: make-message-digest-primitive-context (message-digest-primitive-context-info -> *))
     121(: make-message-digest-primitive-context (message-digest-primitive -> *))
    122122;
    123 (define (make-message-digest-primitive-context ctx-info)
    124   (if (procedure? ctx-info)
    125     (ctx-info)
    126     (set-finalizer! (allocate ctx-info) free) ) )
     123(define (make-message-digest-primitive-context mdp)
     124  (let (
     125    (ctx-info
     126      (message-digest-primitive-context-info
     127        (check-message-digest-primitive 'make-message-digest-primitive-context mdp))) )
     128    (if (procedure? ctx-info)
     129      (ctx-info)
     130      (set-finalizer! (allocate ctx-info) free) ) ) )
    127131
    128132) ;module message-digest-primitive
Note: See TracChangeset for help on using the changeset viewer.