[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".
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-71-gfe040dd,
Mark H Weaver <=