[nongnu] elpa/geiser-stklos 80b05d0 03/30: Disable autodoc

[Philip Kaludercic]

branch: elpa/geiser-stklos
commit 80b05d0bf56f8639a4d867803a0fe224fa908328
Author: Jeronimo Pellegrini <j_p@aleph0.info>
Commit: Jeronimo Pellegrini <j_p@aleph0.info>

    Disable autodoc
    
    It doesn't really work...
---
 geiser.stk | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/geiser.stk b/geiser.stk
index 8f00b7b..927a8b8 100644
--- a/geiser.stk
+++ b/geiser.stk
@@ -78,7 +78,12 @@
     
     (newline)))
 
+;; to log forms, use the following:
+;; (define log (open-output-file "geiser-log.txt"))
+
 (define (write-to-log form)
+;;  (write form log)
+;;  (newline log))
   (values))
 
 ;; evaluates form inside a module.
@@ -219,13 +224,14 @@
 
 ;; used for autodoc. returns the documentation for a symbol.
 (define (geiser:autodoc names . rest)
-  (cond ((null? names) '())
-        ((not (list? names))
-         (geiser:autodoc (list names)))
-        ((symbol? (car names))
-         (with-output-to-string
-           (lambda () (help (car names)))))
-        (else "")))
+  #f)
+;;  (cond ((null? names) '())
+;;        ((not (list? names))
+;;         (geiser:autodoc (list names)))
+;;        ((symbol? (car names))
+;;         (with-output-to-string
+;;           (lambda () (help (car names)))))
+;;        (else "")))
 
 ;; The no-values identity
 (define (geiser:no-values)