~ chicken-core (chicken-5) 01b556e2b98ad14e25505e739488e5c9a3b4cfd0

commit 01b556e2b98ad14e25505e739488e5c9a3b4cfd0
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jul 8 11:17:08 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jul 8 11:17:08 2010 +0200

    trivial change and documented extension-name-and-version

diff --git a/chicken-install.scm b/chicken-install.scm
index da3c6729..1ed773e2 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -383,10 +383,11 @@
      " -bnq "
      (if (and *cross-chicken* ; disable -setup-mode when cross-compiling,
 	      (not *host-extension*)) ; host-repo must always take precedence
-	 ""				
+	 ""
 	 "-setup-mode ")
      "-e \"(require-library setup-api)\" -e \"(import setup-api)\""
-     (sprintf " -e \"(extension-name-and-version '(\\\"~a\\\" \\\"~a\\\"))\"" (car e+d+v) (caddr e+d+v))
+     (sprintf " -e \"(extension-name-and-version '(\\\"~a\\\" \\\"~a\\\"))\""
+       (car e+d+v) (caddr e+d+v))
      (if (sudo-install) " -e \"(sudo-install #t)\"" "")
      (if *keep* " -e \"(keep-intermediates #t)\"" "")
      (if (and *no-install* (not dep?)) " -e \"(setup-install-mode #f)\"" "")
diff --git a/manual/Extensions b/manual/Extensions
index ac964920..a9b78b16 100644
--- a/manual/Extensions
+++ b/manual/Extensions
@@ -264,6 +264,15 @@ If the keyword argument {{c++}} is given and true, then the code will be compile
 Creates the directory given in the string {{PATH}}, with all parent directories as needed.
 
 
+==== extension-name-and-version
+
+<parameter>extension-name-and-version</parameter>
+
+Returns a list containing the name and version of the currently installed
+extension as strings. If the setup script is not invoked via {{chicken-install}},
+then name and version will be empty.
+
+
 ==== installation-prefix
 
 <procedure>(installation-prefix)</procedure>