~ 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))Trap