[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-71-gfe040dd

[Mark H Weaver]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=fe040dd138500520ddfe572a238a6cf28da842c2

The branch, stable-2.0 has been updated
       via  fe040dd138500520ddfe572a238a6cf28da842c2 (commit)
      from  d9e368979bc2b8faa8859cde833b507e7eb83e7f (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit fe040dd138500520ddfe572a238a6cf28da842c2
Author: Mark H Weaver <address@hidden>
Date:   Thu Nov 8 21:53:36 2012 -0500

    Fix record constructor in getopt-long.
    
    * module/ice-9/getopt-long.scm (%make-option-spec): Fix the formal
      argument list to match the actual fields present.
      (make-option-spec): Update to match the fixed %make-option-spec.

-----------------------------------------------------------------------

Summary of changes:
 module/ice-9/getopt-long.scm |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/module/ice-9/getopt-long.scm b/module/ice-9/getopt-long.scm
index 930ac0d..14eaf8e 100644
--- a/module/ice-9/getopt-long.scm
+++ b/module/ice-9/getopt-long.scm
@@ -175,8 +175,7 @@
   (exit 1))
 
 (define-record-type option-spec
-  (%make-option-spec name value required? single-char predicate
-                     value-policy)
+  (%make-option-spec name required? option-spec->single-char predicate 
value-policy)
   option-spec?
   (name
    option-spec->name set-option-spec-name!)
@@ -190,7 +189,7 @@
    option-spec->value-policy set-option-spec-value-policy!))
 
 (define (make-option-spec name)
-  (%make-option-spec name #f #f #f #f #f))
+  (%make-option-spec name #f #f #f #f))
 
 (define (parse-option-spec desc)
   (let ((spec (make-option-spec (symbol->string (car desc)))))


hooks/post-receive
-- 
GNU Guile