Changeset 39867 in project

Timestamp:

04/06/21 02:15:21 (2 weeks ago)

Author:

Kon Lovett

Message:

in-order is not required - use map! on new lists

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

@@ -3 +3 @@
 
 ((synopsis "Semantic Version Utilities")
- (version "0.0.2")
+ (version "0.0.3")
  (category data)
  (author "Kon Lovett")

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

@@ -46 +46 @@
   (chicken format)
   (only (chicken string) ->string string-compare3)
-  (only (srfi 1) make-list list-copy drop-while reverse! append! drop-right! every map-in-order)
+  (only (srfi 1) make-list list-copy drop-while every reverse! append! drop-right! map!)
   (only utf8-srfi-13 string-filter string-index)
   (only (srfi 69) equal?-hash)
@@ -360 +360 @@
   (define (str/num x) (or (string->number x) x))
   (let-values (((parts puncs) (*string-unzip str (version-punctuation))))
-    (make-ver (map-in-order str/num parts) puncs) ) )
+    (make-ver (map! str/num parts) puncs) ) )
 
 (define (version->string ver)
-  (apply string-append (map-in-order ->string (version->list (check-version 'version->string ver)))) )
+  (apply string-append (map! ->string (version->list (check-version 'version->string ver)))) )
 
 (define (version-depth+! ver cnt part #!optional (punc (default-punctuation)))