Changeset 35915 in project


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

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

Location:
release/5/message-digest-primitive/trunk
Files:
3 edited

Legend:

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

    r35904 r35915  
    33
    44((synopsis "Message Digest Primitive")
    5  (version "4.0.1")
     5 (version "4.1.0")
    66 (category crypt)
    77 (author "[[Kon Lovett|kon lovett]]")
  • 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
  • release/5/message-digest-primitive/trunk/tests/message-digest-primitive-test.scm

    r35827 r35915  
    125125  (let* (
    126126    (mdp (make-message-digest-primitive CONTEXT-SIZE DIGEST-LENGTH init update final))
    127     (ctx (make-message-digest-primitive-context (message-digest-primitive-context-info mdp))) )
     127    (ctx (make-message-digest-primitive-context mdp)) )
    128128    (test-assert "allocated context" ctx)
    129129    ;FIXME Add Life-Cycle Tests
     
    165165  (let* (
    166166    (mdp (make-message-digest-primitive make-context DIGEST-LENGTH init update final))
    167     (ctx (make-message-digest-primitive-context (message-digest-primitive-context-info mdp))) )
     167    (ctx (make-message-digest-primitive-context mdp)) )
    168168    (test-assert "allocated context" ctx)
    169169    ;FIXME Add Life-Cycle Tests
Note: See TracChangeset for help on using the changeset viewer.