summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-11-20 13:12:44 +0100
committerAndy Wingo <wingo@pobox.com>2009-11-21 19:03:22 +0100
commit9a5ee564fab678cacda3a2d8ab4cec613768e1e4 (patch)
tree3f0f52ddd5f59f546009c475af42f90bc16ff9d1
parentd20eac70f87511c198dd70e6e6a152d2ac6c6933 (diff)
downloadguile-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.scm3
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) '())