diff options
| -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 |