summaryrefslogtreecommitdiff
path: root/scheme/guile
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-09-26 21:44:21 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-09-26 21:44:21 +0200
commitf2f267955c46d110da4c75a5972f021a2c715a6c (patch)
tree642ee19a130a8d87b22e284643ca7d4a6d5e5ef9 /scheme/guile
parentf67ef229256de7406666dd5ffe14c229bf0b2045 (diff)
downloadgeiser-chez-f2f267955c46d110da4c75a5972f021a2c715a6c.tar.gz
geiser-chez-f2f267955c46d110da4c75a5972f021a2c715a6c.tar.bz2
Multiple arity display, used by PLT backend (case-lambda).
Diffstat (limited to 'scheme/guile')
-rw-r--r--scheme/guile/geiser/doc.scm10
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)