summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-08 01:02:58 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-08 01:02:58 +0200
commit616c53c6e12ff227e3fbff782f4d7f8be120aa5c (patch)
treefacf53fd8546a9db5740667f9e0eea23e587f4e2 /scheme/racket/geiser
parent62cb11d150a99d0284f783259449dc60c0dc0adc (diff)
downloadgeiser-guile-616c53c6e12ff227e3fbff782f4d7f8be120aa5c.tar.gz
geiser-guile-616c53c6e12ff227e3fbff782f4d7f8be120aa5c.tar.bz2
Racket: fix for kwargs display.
Diffstat (limited to 'scheme/racket/geiser')
-rw-r--r--scheme/racket/geiser/autodoc.rkt5
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