diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-19 16:32:16 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-19 16:32:16 +0200 |
| commit | 975831b323afa7ae11a7b960f337faf2a4fd5f10 (patch) | |
| tree | e6983ee2007ec52b54c11ce7a931b7b466da936e | |
| parent | f7b672621bc80c93c3788bc99ce850f4edc50aaa (diff) | |
| download | geiser-guile-975831b323afa7ae11a7b960f337faf2a4fd5f10.tar.gz geiser-guile-975831b323afa7ae11a7b960f337faf2a4fd5f10.tar.bz2 | |
Guile: no need to de-mangling autodoc args anymore.
| -rw-r--r-- | scheme/guile/geiser/doc.scm | 9 |
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) |