diff options
| -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) |