Changeset 39841 in project


Ignore:
Timestamp:
04/05/21 08:03:47 (2 weeks ago)
Author:
Kon Lovett
Message:

remove unneeded bound

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/semantic-version/trunk/semantic-version.scm

    r39840 r39841  
    1515  version<? version=? version>? version<=? version>=?
    1616  version-hash
     17  #;version-hash-both
    1718  version-comparator
    1819  version-parse
     
    9394(define version-punctuation (make-parameter VERSION-PUNCT))
    9495
     96#;
     97(define version-tail-zero? (make-parameter #f))
     98
    9599(define (drop-tailing-zeros ls)
    96100  (reverse! (drop-while (lambda (x) (and (number? x) (zero? x))) (reverse ls))) )
     
    148152  (>= (version-compare ver1 ver2 #:tail-zero? tail-zero?) 0) )
    149153
    150 ;srfi-69
    151 (define-constant hash-default-bound 536870912)
     154(define (version-hash ver . rest)
     155  (apply equal?-hash (ver-parts ver) rest) )
    152156
    153 (define (version-hash ver #!optional (bnd hash-default-bound))
    154   (equal?-hash ver bnd) )
     157#;
     158(define (version-hash-both ver . rest)
     159  (equal?-hash ver rest) )
    155160
    156161(define (version-comparator)
Note: See TracChangeset for help on using the changeset viewer.