summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser/doc.scm
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-06 02:49:13 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-06 02:49:13 +0100
commiteda63df7eadd999a4e9234c4bcfcefe62a2bebe6 (patch)
tree29825abad621974831f3972220f6ba59b82d76f7 /scheme/guile/geiser/doc.scm
parent920ab2ad23b50a50ddf366cbffb7b4125f5c6cbb (diff)
downloadgeiser-chez-eda63df7eadd999a4e9234c4bcfcefe62a2bebe6.tar.gz
geiser-chez-eda63df7eadd999a4e9234c4bcfcefe62a2bebe6.tar.bz2
Small bug fix.
Diffstat (limited to 'scheme/guile/geiser/doc.scm')
-rw-r--r--scheme/guile/geiser/doc.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm
index 35c5bfb..a58f1d9 100644
--- a/scheme/guile/geiser/doc.scm
+++ b/scheme/guile/geiser/doc.scm
@@ -48,7 +48,7 @@
(else
(let ((lst (last form)))
(cond ((and (symbol? lst) (describe-application (list lst))))
- ((and (pair? lst) (not (memq (car lst) '(quote)))) (autodoc lst))
+ ((and (pair? lst) (not (memq (car lst) '(quote))) (autodoc lst)))
((pair? lst) (autodoc (flatten-last form)))
(else (describe-application form)))))))