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/modules.ss | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) (limited to 'scheme/plt/geiser/modules.ss') diff --git a/scheme/plt/geiser/modules.ss b/scheme/plt/geiser/modules.ss index 1b03d1a..02287e0 100644 --- a/scheme/plt/geiser/modules.ss +++ b/scheme/plt/geiser/modules.ss @@ -27,9 +27,10 @@ namespace->module-path-name module-path-name->name module-spec->path-name - module-list) + module-list + module-children) -(require srfi/13 scheme/enter) +(require srfi/13 scheme/enter syntax/modresolve syntax/modcode) (define (ensure-module-spec spec) (cond ((symbol? spec) spec) @@ -127,5 +128,22 @@ stringnamespace mod)))))) ;;; modules.ss ends here -- cgit v1.2.3