Changeset 34375 in project


Ignore:
Timestamp:
08/26/17 23:14:32 (3 months ago)
Author:
kon
Message:

add -chunk, use longer def nam

Location:
release/4/message-digest/trunk
Files:
1 added
1 edited

Legend:

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

    r34374 r34375  
    9595                  (if (and (not (null? rest)) (primitive-name? (car rest)))
    9696                    (values (car rest) (cdr rest))
    97                     (values (gensym 'mdp) rest) ) ) )
     97                    (values (gensym 'message-digest-primitive) rest) ) ) )
    9898      (let-values (((raw-update rest)
    9999                    (if (and (not (null? rest)) (procedure? (car rest)))
Note: See TracChangeset for help on using the changeset viewer.