diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-02 16:19:49 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-02 16:19:49 +0100 |
| commit | 02208b6423a33ff28540c27cf3dca678e8a77b7a (patch) | |
| tree | 44e777dadcde273ce92b080d883987de0f805ca1 /scheme/guile | |
| parent | 1f80c5048e78d0251c18634b8bf7d3f8ea4733b0 (diff) | |
| download | geiser-chez-02208b6423a33ff28540c27cf3dca678e8a77b7a.tar.gz geiser-chez-02208b6423a33ff28540c27cf3dca678e8a77b7a.tar.bz2 | |
Fix recursive require. Nicer arg names in autodoc.
Diffstat (limited to 'scheme/guile')
| -rw-r--r-- | scheme/guile/geiser/doc.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm index 21ede9e..e2fdaca 100644 --- a/scheme/guile/geiser/doc.scm +++ b/scheme/guile/geiser/doc.scm @@ -44,7 +44,7 @@ (cond ((symbol? lst) (or (describe-application (list lst)) (describe-application form))) ((pair? lst) - (or (autodoc (pair->list lst)) + (or (and (not (eq? (car lst) 'quote)) (autodoc (pair->list lst))) (autodoc (map (lambda (s) (if (pair? s) (gensym) s)) form)))) (else (describe-application form))))) (else #f))) @@ -127,8 +127,11 @@ ,@(if rest (list (cons 'rest 'rest)) '())))) (define (gen-arg-names fst count) - (map (lambda (n) (string->symbol (format "arg-~A" (+ fst n)))) - (iota (max count 1)))) + (let* ((letts (list->vector '(#\x #\y #\z #\u #\v #\w #\t))) + (len (vector-length letts)) + (lett (lambda (n) (vector-ref letts (modulo n len))))) + (map (lambda (n) (string->symbol (format "~A" (lett (+ fst n -1))))) + (iota (max count 1))))) (define (arglist->args arglist) `((required . ,(car arglist)) |