summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-22 00:50:59 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-22 00:50:59 +0200
commit83302275cd1250826833773f2e04b2b88046aad3 (patch)
treea27b9b5483c83871637f845ef6f660f3b448404b
parent1fef55a87f0b10945b185d80f5282fc5fd82997e (diff)
downloadgeiser-chez-83302275cd1250826833773f2e04b2b88046aad3.tar.gz
geiser-chez-83302275cd1250826833773f2e04b2b88046aad3.tar.bz2
Guile: bug fix in macro's autodoc.
-rw-r--r--scheme/guile/geiser/doc.scm15
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)