From c3d36f3c21801f8ed8bc91e98cbe5c7a728cd8ab Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 6 Mar 2009 01:27:39 +0100
Subject: Don't display autodoc for function being defined.

---
 geiser/doc.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/geiser/doc.scm b/geiser/doc.scm
index 578e6a3..ae24a87 100644
--- a/geiser/doc.scm
+++ b/geiser/doc.scm
@@ -41,6 +41,15 @@
   (cond ((null? form) #f)
         ((symbol? form) (describe-application (list form)))
         ((and (pair? form) (not (list? form))) (autodoc (pair->list form)))
+        ((and (list? form)
+              (= 2 (length form))
+              (memq (car form)
+                    '(define define* define-macro define-macro* define-method)))
+         (autodoc (cons (car form)
+                        (cond ((or (symbol? (cadr form))
+                                   (null? (cadr form))
+                                   (not (list? (cadr form)))) '())
+                              (else (cdadr form))))))
         ((list? form)
          (let ((lst (last form)))
            (cond ((symbol? lst) (or (describe-application (list lst))
-- 
cgit v1.2.3