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 | 83302275cd1250826833773f2e04b2b88046aad3 (patch) | |
| tree | a27b9b5483c83871637f845ef6f660f3b448404b | |
| parent | 1fef55a87f0b10945b185d80f5282fc5fd82997e (diff) | |
| download | geiser-guile-83302275cd1250826833773f2e04b2b88046aad3.tar.gz geiser-guile-83302275cd1250826833773f2e04b2b88046aad3.tar.bz2 | |
Guile: bug fix in macro's autodoc.
| -rw-r--r-- | scheme/guile/geiser/doc.scm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm index 4bd063b..8c00e22 100644 --- a/scheme/guile/geiser/doc.scm +++ b/scheme/guile/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) |