[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Mark H Weaver
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-71-gfe040dd
Date: Fri, 09 Nov 2012 02:57:10 +0000

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".

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

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]