summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-19 16:32:16 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-19 16:32:16 +0200
commit975831b323afa7ae11a7b960f337faf2a4fd5f10 (patch)
treee6983ee2007ec52b54c11ce7a931b7b466da936e /scheme
parentf7b672621bc80c93c3788bc99ce850f4edc50aaa (diff)
downloadgeiser-chez-975831b323afa7ae11a7b960f337faf2a4fd5f10.tar.gz
geiser-chez-975831b323afa7ae11a7b960f337faf2a4fd5f10.tar.bz2
Guile: no need to de-mangling autodoc args anymore.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/doc.scm9
1 files changed, 3 insertions, 6 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm
index 85bf4d4..e1e27c1 100644
--- a/scheme/guile/geiser/doc.scm
+++ b/scheme/guile/geiser/doc.scm
@@ -38,14 +38,11 @@
(and args (signature name args))))
(define (signature id args-list)
- (define (rem-gensyms args)
- (map (lambda (s) (if (gensym? s) '_
- (if (list? s) (rem-gensyms s) s))) args))
(define (arglst args kind)
(let ((args (assq-ref args kind)))
- (rem-gensyms (cond ((or (not args) (null? args)) '())
- ((list? args) args)
- (else (list args))))))
+ (cond ((or (not args) (null? args)) '())
+ ((list? args) args)
+ (else (list args)))))
(define (mkargs as)
`((required ,@(arglst as 'required))
(optional ,@(arglst as 'optional)