diff options
author | Andy Wingo <wingo@pobox.com> | 2009-11-20 13:12:44 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-11-21 19:03:22 +0100 |
commit | 9a5ee564fab678cacda3a2d8ab4cec613768e1e4 (patch) | |
tree | 3f0f52ddd5f59f546009c475af42f90bc16ff9d1 | |
parent | d20eac70f87511c198dd70e6e6a152d2ac6c6933 (diff) | |
download | guile-9a5ee564fab678cacda3a2d8ab4cec613768e1e4.tar.gz |
better printing of procedures with keyword arguments
* module/system/vm/program.scm (arguments->lambda-list): Print keyword
arguments more sensibly.
-rw-r--r-- | module/system/vm/program.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm index 24e3def2f..99f9a3cb9 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) '()))) `(,@req ,@(if (pair? opt) (cons #:optional opt) '()) |