guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] GNU Guile branch, master, updated. v2.1.0-449-gdb1f466


From: Mark H Weaver
Subject: [Guile-commits] GNU Guile branch, master, updated. v2.1.0-449-gdb1f466
Date: Fri, 09 Nov 2012 02:58: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=db1f46667c7a3a63e4230ca12523046f0cb602f5

The branch, master has been updated
       via  db1f46667c7a3a63e4230ca12523046f0cb602f5 (commit)
       via  fe040dd138500520ddfe572a238a6cf28da842c2 (commit)
      from  54cbf8c6dcae9fe4925186c6f46718e7b45932fe (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 db1f46667c7a3a63e4230ca12523046f0cb602f5
Merge: 54cbf8c fe040dd
Author: Mark H Weaver <address@hidden>
Date:   Thu Nov 8 21:57:33 2012 -0500

    Merge remote-tracking branch 'origin/stable-2.0'

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

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



reply via email to

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