Changeset 39852 in project

Timestamp:

04/05/21 22:30:58 (2 weeks ago)

Author:

Kon Lovett

Message:

rationalize version-depth-! error messages

Location:

release/5/semantic-version/trunk

Files:

• semantic-version.egg (modified) (1 diff)
• semantic-version.scm (modified) (2 diffs)

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

@@ -7 +7 @@
  (author "Kon Lovett")
  (license "BSD")
- (dependencies utf8 srfi-1 srfi-128)
+ (dependencies utf8 srfi-1 srfi-69 srfi-128)
  (test-dependencies test)
  (components

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

@@ -288 +288 @@
       (let ((puncs (ver-puncs ver)) (parts (ver-parts ver)))
         (unless (<= cnt (length parts))
-          (error 'version-depth-! "semantice-version has too little depth to drop" ver cnt) )
+          (error 'version-depth-! "semantic-version cannot drop such depth" ver cnt) )
         ;be direct when dropping all
         (ver-parts-set! ver (if (= cnt (length parts)) '() (drop-right! parts cnt)))
@@ -295 +295 @@
         ver ) )
     (else
-      (error 'version-depth-! "cannot drop negative depth" ver cnt)) ) )
+      (error 'version-depth-! "semantic-version cannot drop negative depth" ver cnt)) ) )
 
 (define (version-depth+ ver cnt part #!optional (punc (default-punctuation)))