diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-07-22 00:50:59 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-07-22 00:50:59 +0200 |
| commit | c2aa8aea31fb7171d4c69456398897164aecf159 (patch) | |
| tree | 8f9b94219d984b8697ff34818f4344d9553b152c | |
| parent | 06d7cf553bbb2df7615724d765c0e28b508444b1 (diff) | |
| download | geiser-guile-c2aa8aea31fb7171d4c69456398897164aecf159.tar.gz geiser-guile-c2aa8aea31fb7171d4c69456398897164aecf159.tar.bz2 | |
Guile: bug fix in macro's autodoc.
| -rw-r--r-- | geiser/doc.scm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/geiser/doc.scm b/geiser/doc.scm index 4bd063b..8c00e22 100644 --- a/geiser/doc.scm +++ b/geiser/doc.scm @@ -83,14 +83,13 @@ (else #f)))) (define (macro-args tf) - (cond ((procedure-property tf 'patterns) => - (lambda (pats) - (filter identity - (map (lambda (p) - (and (every symbol? p) - (list (cons 'required p)))) - pats)))) - (else default-macro-args))) + (let* ((pats (procedure-property tf 'patterns)) + (args (and pats (filter identity + (map (lambda (p) + (and (every symbol? p) + (list (cons 'required p)))) + pats))))) + (or (and args (not (null? args)) args) default-macro-args))) (define (arity->args art) (define (gen-arg-names count) |