dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

better printing of procedures with keyword arguments

Browse source 
* module/system/vm/program.scm (arguments->lambda-list): Print keyword
  arguments more sensibly.
This commit is contained in:
Andy Wingo 2009-11-20 13:12:44 +01:00
commit 9a5ee564fa
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/system/vm/program.scm
View file

@ -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) '())