summaryrefslogtreecommitdiff
path: root/geiser/doc.scm
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
commitc2aa8aea31fb7171d4c69456398897164aecf159 (patch)
tree8f9b94219d984b8697ff34818f4344d9553b152c /geiser/doc.scm
parent06d7cf553bbb2df7615724d765c0e28b508444b1 (diff)
downloadgeiser-guile-c2aa8aea31fb7171d4c69456398897164aecf159.tar.gz
geiser-guile-c2aa8aea31fb7171d4c69456398897164aecf159.tar.bz2
Guile: bug fix in macro's autodoc.
Diffstat (limited to 'geiser/doc.scm')
-rw-r--r--geiser/doc.scm15
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)