diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-08 01:02:58 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-08 01:02:58 +0200 |
| commit | 616c53c6e12ff227e3fbff782f4d7f8be120aa5c (patch) | |
| tree | facf53fd8546a9db5740667f9e0eea23e587f4e2 | |
| parent | 62cb11d150a99d0284f783259449dc60c0dc0adc (diff) | |
| download | geiser-guile-616c53c6e12ff227e3fbff782f4d7f8be120aa5c.tar.gz geiser-guile-616c53c6e12ff227e3fbff782f4d7f8be120aa5c.tar.bz2 | |
Racket: fix for kwargs display.
| -rw-r--r-- | scheme/racket/geiser/autodoc.rkt | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/scheme/racket/geiser/autodoc.rkt b/scheme/racket/geiser/autodoc.rkt index ac66da9..9cf681c 100644 --- a/scheme/racket/geiser/autodoc.rkt +++ b/scheme/racket/geiser/autodoc.rkt @@ -130,13 +130,12 @@ req (cons (car formals) opt) keys)) - ((keyword? (car formals)) (let* ((kname - (keyword->symbol (car formals))) + ((keyword? (car formals)) (let* ((kname (car formals)) (arg-id (cadr formals)) (name (if (pair? arg-id) (list kname (cadr arg-id)) - kname))) + (list kname)))) (loop (cddr formals) req opt |