~ chicken-core (chicken-5) 1076e2f3122350fd13b22352eedb93f2394553af

commit 1076e2f3122350fd13b22352eedb93f2394553af
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Sep 15 09:25:30 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Sep 15 09:25:30 2010 +0200

    make version arg to standard-extension optional

diff --git a/manual/Extensions b/manual/Extensions
index e05cd604..fdfef4b5 100644
--- a/manual/Extensions
+++ b/manual/Extensions
@@ -160,7 +160,7 @@ files in {{FILELIST}} to executable (for installing shell-scripts).
 
 ==== standard-extension
 
-<procedure>(standard-extension ID VERSION #!key static info)</procedure>
+<procedure>(standard-extension ID [VERSION] #!key static info)</procedure>
 
 A convenience procedure that combines the compilation and installation of 
 a simple single-file extension. This is roughly equivalent to:
@@ -176,9 +176,10 @@ a simple single-file extension. This is roughly equivalent to:
      ... `INFO' ...
      (static "ID.o")))   ; if `static' is given and true
 
-{{VERSION}} may be {{#f}}, in that case the version obtained from where the
-extension has been retrieved wil be taken. If installed directly from a local
-directory, the version will default to {{"unknown"}}.
+{{VERSION}} may be {{#f}} or can be omitted, in that case the version
+obtained from where the extension has been retrieved wil be taken. If
+installed directly from a local directory, the version will default to
+{{"unknown"}}.
 
 
 ==== run
diff --git a/setup-api.scm b/setup-api.scm
index 73dadaf1..666b3668 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -543,7 +543,7 @@
 
 ;;; Convenience function
 
-(define (standard-extension name version #!key (static #t) (info '()))
+(define (standard-extension name #!optional version #!key (static #t) (info '()))
   (let* ((sname (->string name))
 	 (fname (make-pathname #f sname "scm"))
 	 (iname (make-pathname #f sname "import.scm"))