Ignore:
Timestamp:
03/25/18 19:50:42 (2 years ago)
Author:
Kon Lovett
Message:

add types, message-digest-result-form -> -type, -form is symbol, -byte-order is symbol, do not type check-/error- (no no no no no)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/message-digest/trunk/message-digest-srfi-4.scm

    r35339 r35341  
    6464;;; Single Source API
    6565
    66 (define: (message-digest-u8vector (mdp message-digest-primitive) (u8vec u8vector) . (opts list)) -> message-digest-result-form
     66(define: (message-digest-u8vector (mdp message-digest-primitive) (u8vec u8vector) . (opts list)) -> message-digest-result-type
    6767  (let-optionals* opts (
    68     (result-type (message-digest-result-form))
     68    (restyp (message-digest-result-form))
    6969    (start 0)
    7070    (end (u8vector-length u8vec)) )
    7171    (let ((md (initialize-message-digest mdp)))
    7272      (message-digest-update-u8vector md u8vec start end)
    73       (finalize-message-digest md result-type) ) ) )
     73      (finalize-message-digest md restyp) ) ) )
    7474
    75 (define: (message-digest-u8vector! (mdp message-digest-primitive) (u8vec u8vector) (buffer message-digest-buffer) . (opts list)) -> message-digest-result-form
     75(define: (message-digest-u8vector! (mdp message-digest-primitive) (u8vec u8vector) (buffer message-digest-buffer) . (opts list)) -> message-digest-result-type
    7676  (let-optionals* opts (
    7777    (start 0)
     
    8989(: message-digest-update-packed-vector deprecated)
    9090(define (message-digest-update-packed-vector md pkdvec)
    91   (let ((blb (packed-vector->blob/shared pkdvec)))
     91  (let (
     92    (blb (packed-vector->blob/shared pkdvec)) )
    9293    (if blb
    9394      (message-digest-update-blob md blb)
     
    9798(define (message-digest-update-bytevector md bv #!optional (len (number-of-bytes bv)))
    9899  (check-message-digest 'message-digest-update-bytevector md)
    99   (let ((mdp (message-digest-algorithm md))
    100         (ctx (message-digest-context md)) )
     100  (let (
     101    (mdp (message-digest-algorithm md))
     102    (ctx (message-digest-context md)) )
    101103    ((message-digest-primitive-update mdp)
    102104        ctx
Note: See TracChangeset for help on using the changeset viewer.