~ chicken-core (chicken-5) 4704471977b69fdeeffc381bf9b5635f8d995f43

commit 4704471977b69fdeeffc381bf9b5635f8d995f43
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Aug 31 05:29:22 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Aug 31 05:29:22 2010 -0400

    deprecated reqired-extension-version and required-chicken-version

diff --git a/manual/Extensions b/manual/Extensions
index 83f45cee..1de393d1 100644
--- a/manual/Extensions
+++ b/manual/Extensions
@@ -324,24 +324,6 @@ Contains the path of the directory where {{chicken-install}} was invoked.
 Reflects the setting of the {{-no-install}} option, i.e. is {{#f}}, if {{-no-install}} was
 given to {{chicken-install}}.
 
-==== required-chicken-version
-
-<procedure>(required-chicken-version VERSION)</procedure>
-
-Signals an error if the version of CHICKEN that this script runs under is lexicographically less than
-{{VERSION}} (the argument will be converted to a string, first).
-
-
-==== required-extension-version
-
-<procedure>(required-extension-version EXTENSION1 VERSION1 ...)</procedure>
-
-Checks whether the extensions {{EXTENSION1 ...}} are installed and at least of version {{VERSION1 ...}}.
-The test is made by lexicographically comparing the string-representations of the given version with the version 
-of the installed extension. If one of the listed extensions is not installed, has no associated version information
-or is of a version older than the one specified.
-
-
 ==== host-extension
 
 <parameter>host-extension</parameter>
diff --git a/setup-api.scm b/setup-api.scm
index 5f4f37de..47dfbfd4 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -683,7 +683,7 @@
     (ignore-errors ($system (sprintf "~A ~A" *remove-command* (shellpath fname))))
     (zero? r) ) )
 
-(define (required-chicken-version v)
+(define (required-chicken-version v)	;DEPRECATED
   (when (version>=? v (chicken-version) ) 
     (error (sprintf "CHICKEN version ~a or higher is required" v)) ) )
 
@@ -693,7 +693,7 @@
     "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)
+(define (required-extension-version . args) ;DEPRECATED
   (let loop ((args args))
     (cond ((null? args) #f)
 	  ((and (list? args) (>= (length args) 2))
@@ -704,11 +704,13 @@
 	     (if info
 		 (let ((ver (and (assq 'version info) (cadr (assq 'version info)))))
 		   (cond ((not ver) (upgrade-message ext "has no associated version information"))
-			 ((and (version>=? version ver) (not (string=? (->string version) (->string ver))))
+			 ((and (version>=? version ver) 
+			       (not (string=? (->string version) (->string ver))))
 			  (upgrade-message 
 			   ext
-			   (sprintf "is older than ~a, which is the minimum version that this extension requires"
-				    version) 
+			   (sprintf
+			       "is older than ~a, which is the minimum version that this extension requires"
+			     version) 
                            version) )
 			 (else (loop more)) ) ) 
 		 (upgrade-message ext "is not installed") ) ) )