From 616c53c6e12ff227e3fbff782f4d7f8be120aa5c Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz 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/geiser/autodoc.rkt') 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