summaryrefslogtreecommitdiff
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
commit417460bb7dcaf110fff8dea9390c9b3afcd7681c (patch)
tree814afd85012a130bdbcb1bff6aed3f6da5a29ed4
parent4afe5ff27c7cbf6210cd4890e25c8c4bdc475849 (diff)
downloadgeiser-guile-417460bb7dcaf110fff8dea9390c9b3afcd7681c.tar.gz
geiser-guile-417460bb7dcaf110fff8dea9390c9b3afcd7681c.tar.bz2
Multiple arity display, used by PLT backend (case-lambda).
-rw-r--r--geiser/doc.scm10
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)