Changeset 9125 in project


Ignore:
Timestamp:
02/29/08 10:46:33 (12 years ago)
Author:
felix winkelmann
Message:

fixed version number comparison

Location:
release/3/egg-post-commit/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/egg-post-commit/trunk/egg-post-commit.scm

    r8895 r9125  
    207207
    208208(define (version-string->numbers string)
    209   (string-split string "."))
     209  (map string->number (string-split string ".")))
    210210
    211211; Given two lists with numbers corresponding to a software version (as returned
     
    215215  (and (not (null? a))
    216216       (or (null? b)
    217            (string>? (car a) (car b))
    218            (and (string=? (car a) (car b))
     217           (> (car a) (car b))
     218           (and (= (car a) (car b))
    219219                (version-numbers> (cdr a) (cdr b))))))
    220220
     
    227227    (lambda (a pick)
    228228      (let ((a-nums (version-string->numbers a)))
    229         (if (version-numbers>
    230              a-nums
    231              (version-string->numbers pick))
     229        (if (and (every number? a-nums)
     230                 (version-numbers>
     231                  a-nums
     232                  (version-string->numbers pick)) )
    232233          a
    233234          pick)))
  • release/3/egg-post-commit/trunk/post-commit.scm

    r8895 r9125  
    4646  (or (and-let* ((tags-dir (make-pathname eggname "tags"))
    4747                 ((file-exists? tags-dir)))
    48         (or (and-let* ((latest (svn-propget "latest" tags-dir "anonymous" "" '()))
     48        (or #;(and-let* ((latest (svn-propget "latest" tags-dir "anonymous" "" '()))
    4949                       ((not (null? latest)))
    5050                       (release-dir (make-pathname tags-dir (cadar latest)))
Note: See TracChangeset for help on using the changeset viewer.