From ac726e6c49846b920466650fe9f3b57b1eb50e20 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 25 May 2009 03:39:47 +0200 Subject: PLT: New help functionality: - Using our own help function, which takes care of trying on not yet loaded modules. - Module children implemented. --- scheme/plt/geiser/autodoc.ss | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'scheme/plt/geiser/autodoc.ss') diff --git a/scheme/plt/geiser/autodoc.ss b/scheme/plt/geiser/autodoc.ss index f7a0c55..73ed24d 100644 --- a/scheme/plt/geiser/autodoc.ss +++ b/scheme/plt/geiser/autodoc.ss @@ -22,9 +22,14 @@ #lang scheme -(provide autodoc update-module-cache) +(provide autodoc update-module-cache get-help) -(require geiser/utils geiser/modules geiser/locations) +(require geiser/utils geiser/modules geiser/locations scheme/help) + +(define (get-help symbol mod) + (with-handlers ((exn? (lambda (e) + (eval `(help ,symbol #:from ,mod))))) + (eval `(help ,symbol)))) (define (autodoc form) (cond ((null? form) #f) -- cgit v1.2.3