diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-25 03:39:47 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-25 03:39:47 +0200 |
| commit | ac726e6c49846b920466650fe9f3b57b1eb50e20 (patch) | |
| tree | edfe88d359c61ebcbd2a3bbd9841da13fbcb453a /scheme/plt/geiser/autodoc.ss | |
| parent | 76d5f69c79182687225248a7a0e424ef990daafd (diff) | |
| download | geiser-guile-ac726e6c49846b920466650fe9f3b57b1eb50e20.tar.gz geiser-guile-ac726e6c49846b920466650fe9f3b57b1eb50e20.tar.bz2 | |
PLT: New help functionality:
- Using our own help function, which takes care of trying on not yet
loaded modules.
- Module children implemented.
Diffstat (limited to 'scheme/plt/geiser/autodoc.ss')
| -rw-r--r-- | scheme/plt/geiser/autodoc.ss | 9 |
1 files changed, 7 insertions, 2 deletions
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) |