~ chicken-core (chicken-5) 1e460d37464006a8e3f50947530fb36729b61e5a

commit 1e460d37464006a8e3f50947530fb36729b61e5a
Author:     felix <bunny351@gmail.com>
AuthorDate: Tue Jun 8 07:57:27 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Tue Jun 8 07:57:27 2010 +0200

    changed error message when required extension is out of date (thanks to mario)

diff --git a/setup-api.scm b/setup-api.scm
index 26e5cdf1..243e2eff 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -667,7 +667,7 @@
 (define (upgrade-message ext msg #!optional version)
   (error
    (sprintf
-    "the required extension `~s' ~a - please run~%~%  chicken-install ~a~a~%~%and repeat the current installation operation."
+    "the currently installed extension `~s' ~a - please run~%~%  chicken-install ~a~a~%~%and repeat the current installation operation."
     ext msg ext (if version (conc ":" version) "")) ) )
 
 (define (required-extension-version . args)
@@ -684,7 +684,7 @@
 			 ((and (version>=? version ver) (not (string=? (->string version) (->string ver))))
 			  (upgrade-message 
 			   ext
-			   (sprintf "is older than ~a, which is what this extension requires"
+			   (sprintf "is older than ~a, which is the minimum version that this extension requires"
 				    version) 
                            version) )
 			 (else (loop more)) ) )