diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-26 21:44:21 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-26 21:44:21 +0200 |
| commit | f2f267955c46d110da4c75a5972f021a2c715a6c (patch) | |
| tree | 642ee19a130a8d87b22e284643ca7d4a6d5e5ef9 /scheme/guile | |
| parent | f67ef229256de7406666dd5ffe14c229bf0b2045 (diff) | |
| download | geiser-guile-f2f267955c46d110da4c75a5972f021a2c715a6c.tar.gz geiser-guile-f2f267955c46d110da4c75a5972f021a2c715a6c.tar.bz2 | |
Multiple arity display, used by PLT backend (case-lambda).
Diffstat (limited to 'scheme/guile')
| -rw-r--r-- | scheme/guile/geiser/doc.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm index 1ebdd85..b634c08 100644 --- a/scheme/guile/geiser/doc.scm +++ b/scheme/guile/geiser/doc.scm @@ -45,11 +45,11 @@ (else (list args))))) `(,id (args ,@(if (list? args) - `((required ,@(arglst 'required)) - (optional ,@(arglst 'optional) - ,@(let ((rest (assq-ref args 'rest))) - (if rest (list "...") '()))) - (key ,@(arglst 'keyword))) + `(((required ,@(arglst 'required)) + (optional ,@(arglst 'optional) + ,@(let ((rest (assq-ref args 'rest))) + (if rest (list "...") '()))) + (key ,@(arglst 'keyword)))) '())))) (define (obj-args obj) |