summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-02 16:19:49 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-02 16:19:49 +0100
commit02208b6423a33ff28540c27cf3dca678e8a77b7a (patch)
tree44e777dadcde273ce92b080d883987de0f805ca1 /scheme
parent1f80c5048e78d0251c18634b8bf7d3f8ea4733b0 (diff)
downloadgeiser-chez-02208b6423a33ff28540c27cf3dca678e8a77b7a.tar.gz
geiser-chez-02208b6423a33ff28540c27cf3dca678e8a77b7a.tar.bz2
Fix recursive require. Nicer arg names in autodoc.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/doc.scm9
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))