branch: elpa/geiser-guile
commit c3d36f3c21801f8ed8bc91e98cbe5c7a728cd8ab
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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))
