~ chicken-core (chicken-5) ab284ea5881e8a6698f1bfff8e3d0d3ce57ee425

commit ab284ea5881e8a6698f1bfff8e3d0d3ce57ee425
Author:     unknown <felix@.(none)>
AuthorDate: Thu Oct 22 09:40:10 2009 +0200
Commit:     unknown <felix@.(none)>
CommitDate: Thu Oct 22 09:40:10 2009 +0200

    upgrade message in setup-api shows version (thanks to ckeen)

diff --git a/setup-api.scm b/setup-api.scm
index f8b4ea3d..e4897ed7 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -658,11 +658,11 @@
   (when (version>=? v (chicken-version) ) 
     (error (sprintf "CHICKEN version ~a or higher is required" v)) ) )
 
-(define (upgrade-message ext msg)
+(define (upgrade-message ext msg #!optional version)
   (error
    (sprintf
-    "the required extension `~s' ~a - please run~%~%  chicken-install ~a~%~%and repeat the current installation operation."
-    ext msg ext) ) )
+    "the required extension `~s' ~a - please run~%~%  chicken-install ~a~a~%~%and repeat the current installation operation."
+    ext msg ext (if version (string-append ":" version) "")) ) )
 
 (define (required-extension-version . args)
   (let loop ((args args))
@@ -679,7 +679,8 @@
 			  (upgrade-message 
 			   ext
 			   (sprintf "is older than ~a, which is what this extension requires"
-				    version) ) )
+				    version) 
+                           version) )
 			 (else (loop more)) ) ) 
 		 (upgrade-message ext "is not installed") ) ) )
 	  (else