Changeset 14291 in project


Ignore:
Timestamp:
04/18/09 13:17:47 (11 years ago)
Author:
felix winkelmann
Message:

applied version-comparison fix by Jim Ursetto

File:
1 edited

Legend:

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

    r14237 r14291  
    690690          ((null? p2))
    691691          ((number? (car p1))
    692            (and (if (number? (car p2))
    693                     (>= (car p1) (car p2))
    694                     (string>=? (number->string (car p1)) (car p2)))
    695                 (loop (cdr p1) (cdr p2))))
    696           ((number? (car p2))
    697            (and (string>=? (car p1) (number->string (car p2)))
    698                 (loop (cdr p1) (cdr p2))))
    699           ((string>=? (car p1) (car p2)) (loop (cdr p1) (cdr p2)))
    700           (else #f))))
     692           (and (number? (car p2))
     693                (or (> (car p1) (car p2))
     694                    (and (= (car p1) (car p2))
     695                         (loop (cdr p1) (cdr p2))))))
     696          ((number? (car p2)))
     697          ((string>? (car p1) (car p2)))
     698          (else
     699           (and (string=? (car p1) (car p2))
     700                (loop (cdr p1) (cdr p2)))))))
    701701
    702702(define extension-name-and-version
Note: See TracChangeset for help on using the changeset viewer.