From 616c53c6e12ff227e3fbff782f4d7f8be120aa5c Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Tue, 8 Jun 2010 01:02:58 +0200
Subject: Racket: fix for kwargs display.
---
scheme/racket/geiser/autodoc.rkt | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
(limited to 'scheme/racket')
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
--
cgit v1.2.3