Changeset 14587 in project for chicken


Ignore:
Timestamp:
05/11/09 03:42:30 (11 years ago)
Author:
Ivan Raikov
Message:

Fixes in egg version comparison.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/setup-api.scm

    r14291 r14587  
    638638
    639639(define (required-chicken-version v)
    640   (when (string-ci<? (chicken-version) (->string v))
     640  (when (version>=? v (chicken-version) )
    641641    (error (sprintf "CHICKEN version ~a or higher is required" v)) ) )
    642642
     
    654654                  (version (cadr args))
    655655                  (more (cddr args))
    656                   (info (extension-information ext))
    657                   (version (->string version)) )
     656                  (info (extension-information ext)))
    658657             (if info
    659658                 (let ((ver (and (assq 'version info) (cadr (assq 'version info)))))
    660659                   (cond ((not ver) (upgrade-message ext "has no associated version information"))
    661                          ((string-ci<? (->string ver) version)
     660                         ((version>=? version ver)
    662661                          (upgrade-message
    663662                           ext
     
    684683  (define (version->list v)
    685684    (map (lambda (x) (or (string->number x) x))
    686          (string-split-fields "[-\\._]" v #:infix)))
     685         (string-split-fields "[-\\._]" (->string v) #:infix)))
    687686  (let loop ((p1 (version->list v1))
    688687             (p2 (version->list v2)))
Note: See TracChangeset for help on using the changeset viewer.