branch: elpa/geiser-stklos commit 80b05d0bf56f8639a4d867803a0fe224fa908328 Author: Jeronimo Pellegrini <j...@aleph0.info> Commit: Jeronimo Pellegrini <j...@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)