[Top][All Lists]

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

[Guile-commits] GNU Guile branch, master, updated. release_1-9-5-6-g9a5e

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-5-6-g9a5ee56
Date: Sat, 21 Nov 2009 18:03:35 +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, master has been updated
       via  9a5ee564fab678cacda3a2d8ab4cec613768e1e4 (commit)
       via  d20eac70f87511c198dd70e6e6a152d2ac6c6933 (commit)
      from  850a4c8f5f076fb5968c2204eefadf91dc7c56bd (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 9a5ee564fab678cacda3a2d8ab4cec613768e1e4
Author: Andy Wingo <address@hidden>
Date:   Fri Nov 20 13:12:44 2009 +0100

    better printing of procedures with keyword arguments
    * module/system/vm/program.scm (arguments->lambda-list): Print keyword
      arguments more sensibly.

commit d20eac70f87511c198dd70e6e6a152d2ac6c6933
Author: Andy Wingo <address@hidden>
Date:   Fri Nov 20 17:24:40 2009 +0100

    fix version-etc for older autoconf
    * lib/version-etc.c: Don't reference the undefined PACKAGE if
      PACKAGE_URL is undefined. Probably should go upstream.


Summary of changes:
 lib/version-etc.c            |    2 +-
 module/system/vm/program.scm |    3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/version-etc.c b/lib/version-etc.c
index 4f9de48..a7be46e 100644
--- a/lib/version-etc.c
+++ b/lib/version-etc.c
@@ -245,7 +245,7 @@ emit_bug_reporting_address (void)
   printf (_("%s home page: <%s>\n"), PACKAGE_NAME, PACKAGE_URL);
   printf (_("%s home page: <>\n"),
   fputs (_("General help using GNU software: <>\n"),
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 24e3def..99f9a3c 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -180,7 +180,8 @@
 (define (arguments->lambda-list arguments)
   (let ((req (or (assq-ref arguments 'required) '()))
         (opt (or (assq-ref arguments 'optional) '()))
-        (key (or (assq-ref arguments 'keyword) '()))
+        (key (map keyword->symbol
+                  (map car (or (assq-ref arguments 'keyword) '()))))
         (rest (or (assq-ref arguments 'rest) '())))
       ,@(if (pair? opt) (cons #:optional opt) '())

GNU Guile

reply via email to

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