~ chicken-core (chicken-5) eaeaf6d4f130c44fec61bce583b69f67f5cd794b

commit eaeaf6d4f130c44fec61bce583b69f67f5cd794b
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Nov 19 17:20:29 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 20 15:35:44 2009 +0100

    -force should override chicken-version check in chicken-install
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/chicken-install.scm b/chicken-install.scm
index 2c6e4243..4b34f21c 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -156,7 +156,8 @@
                        (cond ((not v)
                               (loop rest (cons (->string (car dep)) missing) upgrade))
                              ((not (version>=? v (->string (cadr dep))))
-			      (when (string=? "chicken" (->string (car dep)))
+			      (when (and (string=? "chicken" (->string (car dep)))
+					 (not *force*))
 				(error
 				 (string-append 
 				  "Your CHICKEN version is not recent enough to use this extension - version "
@@ -519,6 +520,7 @@ EOF
 
   (handle-exceptions ex
       (begin
+	(newline (current-error-port))
         (print-error-message ex (current-error-port))
         (cleanup)
         (exit 1))