diff --git a/setup-api.scm b/setup-api.scm
index 4093aeb..cd4b8b3 100644
a
|
b
|
|
653 | 653 | (define (upgrade-message ext msg #!optional version) |
654 | 654 | (error |
655 | 655 | (sprintf |
656 | | "the required extension `~s' ~a - please run~%~% chicken-install ~a~a~%~%and repeat the current installation operation." |
| 656 | "the currently installed extension `~s' ~a - please run~%~% chicken-install ~a~a~%~%and repeat the current installation operation." |
657 | 657 | ext msg ext (if version (conc ":" version) "")) ) ) |
658 | 658 | |
659 | 659 | (define (required-extension-version . args) |
… |
… |
|
670 | 670 | ((and (version>=? version ver) (not (string=? (->string version) (->string ver)))) |
671 | 671 | (upgrade-message |
672 | 672 | ext |
673 | | (sprintf "is older than ~a, which is what this extension requires" |
| 673 | (sprintf "is older than ~a, which is the minimum version that this extension requires" |
674 | 674 | version) |
675 | 675 | version) ) |
676 | 676 | (else (loop more)) ) ) |