From d71825cd8e95d4b17631d4f2ce0a26a12f67b199 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.

---
 geiser/doc.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'geiser/doc.scm')

diff --git a/geiser/doc.scm b/geiser/doc.scm
index 35c5bfb..a58f1d9 100644
--- a/geiser/doc.scm
+++ b/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