From eda63df7eadd999a4e9234c4bcfcefe62a2bebe6 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 6 Mar 2009 02:49:13 +0100
Subject: Small bug fix.
---
scheme/guile/geiser/doc.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'scheme')
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)))))))
--
cgit v1.2.3