Changeset 39841 in project

Timestamp:

04/05/21 08:03:47 (2 weeks ago)

Author:

Kon Lovett

Message:

remove unneeded bound

File:

• release/5/semantic-version/trunk/semantic-version.scm (modified) (3 diffs)

release/5/semantic-version/trunk/semantic-version.scm

@@ -15 +15 @@
   version<? version=? version>? version<=? version>=?
   version-hash
+  #;version-hash-both
   version-comparator
   version-parse
@@ -93 +94 @@
 (define version-punctuation (make-parameter VERSION-PUNCT))
 
+#;
+(define version-tail-zero? (make-parameter #f))
+
 (define (drop-tailing-zeros ls)
   (reverse! (drop-while (lambda (x) (and (number? x) (zero? x))) (reverse ls))) )
@@ -148 +152 @@
   (>= (version-compare ver1 ver2 #:tail-zero? tail-zero?) 0) )
 
-;srfi-69
-(define-constant hash-default-bound 536870912)
+(define (version-hash ver . rest)
+  (apply equal?-hash (ver-parts ver) rest) )
 
-(define (version-hash ver #!optional (bnd hash-default-bound))
-  (equal?-hash ver bnd) )
+#;
+(define (version-hash-both ver . rest)
+  (equal?-hash ver rest) )
 
 (define (version-comparator)