Changeset 39867 in project


Ignore:
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:
2 edited

Legend:

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

    r39858 r39867  
    33
    44((synopsis "Semantic Version Utilities")
    5  (version "0.0.2")
     5 (version "0.0.3")
    66 (category data)
    77 (author "Kon Lovett")
  • release/5/semantic-version/trunk/semantic-version.scm

    r39858 r39867  
    4646  (chicken format)
    4747  (only (chicken string) ->string string-compare3)
    48   (only (srfi 1) make-list list-copy drop-while reverse! append! drop-right! every map-in-order)
     48  (only (srfi 1) make-list list-copy drop-while every reverse! append! drop-right! map!)
    4949  (only utf8-srfi-13 string-filter string-index)
    5050  (only (srfi 69) equal?-hash)
     
    360360  (define (str/num x) (or (string->number x) x))
    361361  (let-values (((parts puncs) (*string-unzip str (version-punctuation))))
    362     (make-ver (map-in-order str/num parts) puncs) ) )
     362    (make-ver (map! str/num parts) puncs) ) )
    363363
    364364(define (version->string ver)
    365   (apply string-append (map-in-order ->string (version->list (check-version 'version->string ver)))) )
     365  (apply string-append (map! ->string (version->list (check-version 'version->string ver)))) )
    366366
    367367(define (version-depth+! ver cnt part #!optional (punc (default-punctuation)))
Note: See TracChangeset for help on using the changeset viewer.