branch: elpa/geiser-stklos
commit 80b05d0bf56f8639a4d867803a0fe224fa908328
Author: Jeronimo Pellegrini <[email protected]>
Commit: Jeronimo Pellegrini <[email protected]>
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)
