Changeset 15616 in project


Ignore:
Timestamp:
08/29/09 04:26:31 (10 years ago)
Author:
Kon Lovett
Message:

What was I thinking. Use 'sha1-' prefix.

Location:
release/4/sha1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/sha1/tags/2.0.0/sha1.scm

    r15609 r15616  
    11;;;; sha1.scm
    22
    3 (declare
    4   (fixnum)
    5   (no-procedure-checks) )
    6 
    73(module sha1 (;export
    8   binary-digest
    9   digest
    10   primitive)
     4  sha1-binary-digest
     5  sha1-digest
     6  sha1-primitive)
    117
    128  (import scheme chicken foreign)
    139  (require-extension message-digest)
     10
     11  (declare
     12    (fixnum)
     13    (no-procedure-checks) )
    1414
    1515#>
     
    2929;;
    3030
    31 (define (binary-digest obj)
     31(define (sha1-binary-digest obj)
    3232  (make-binary-message-digest obj
    3333    context-size digest-length
    3434    starts update finish
    35     'sha1#binary-digest) )
     35    'sha1-binary-digest) )
    3636
    37 (define (digest obj)
     37(define (sha1-digest obj)
    3838  (make-message-digest obj
    3939    context-size digest-length
    4040    starts update finish
    41     'sha1#digest) )
     41    'sha1-digest) )
    4242
    43 (define (primitive)
     43(define (sha1-primitive)
    4444  (make-message-digest-primitive
    4545    context-size digest-length
    4646    starts update finish
    47     (gensym 'sha1#primitive)) )
     47    (gensym 'sha1-primitive)) )
    4848
    4949) ;module sha1
  • release/4/sha1/trunk/sha1.scm

    r15609 r15616  
    11;;;; sha1.scm
    22
    3 (declare
    4   (fixnum)
    5   (no-procedure-checks) )
    6 
    73(module sha1 (;export
    8   binary-digest
    9   digest
    10   primitive)
     4  sha1-binary-digest
     5  sha1-digest
     6  sha1-primitive)
    117
    128  (import scheme chicken foreign)
    139  (require-extension message-digest)
     10
     11  (declare
     12    (fixnum)
     13    (no-procedure-checks) )
    1414
    1515#>
     
    2929;;
    3030
    31 (define (binary-digest obj)
     31(define (sha1-binary-digest obj)
    3232  (make-binary-message-digest obj
    3333    context-size digest-length
    3434    starts update finish
    35     'sha1#binary-digest) )
     35    'sha1-binary-digest) )
    3636
    37 (define (digest obj)
     37(define (sha1-digest obj)
    3838  (make-message-digest obj
    3939    context-size digest-length
    4040    starts update finish
    41     'sha1#digest) )
     41    'sha1-digest) )
    4242
    43 (define (primitive)
     43(define (sha1-primitive)
    4444  (make-message-digest-primitive
    4545    context-size digest-length
    4646    starts update finish
    47     (gensym 'sha1#primitive)) )
     47    (gensym 'sha1-primitive)) )
    4848
    4949) ;module sha1
Note: See TracChangeset for help on using the changeset viewer.