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 | 417460bb7dcaf110fff8dea9390c9b3afcd7681c (patch) | |
| tree | 814afd85012a130bdbcb1bff6aed3f6da5a29ed4 | |
| parent | 4afe5ff27c7cbf6210cd4890e25c8c4bdc475849 (diff) | |
| download | geiser-guile-417460bb7dcaf110fff8dea9390c9b3afcd7681c.tar.gz geiser-guile-417460bb7dcaf110fff8dea9390c9b3afcd7681c.tar.bz2 | |
Multiple arity display, used by PLT backend (case-lambda).
| -rw-r--r-- | geiser/doc.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/geiser/doc.scm b/geiser/doc.scm index 1ebdd85..b634c08 100644 --- a/geiser/doc.scm +++ b/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) |