diff options
Diffstat (limited to 'scheme/plt')
-rw-r--r-- | scheme/plt/geiser.ss | 4 | ||||
-rw-r--r-- | scheme/plt/geiser/modules.ss | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/scheme/plt/geiser.ss b/scheme/plt/geiser.ss index ed3d9d4..585b69c 100644 --- a/scheme/plt/geiser.ss +++ b/scheme/plt/geiser.ss @@ -40,7 +40,7 @@ geiser:module-completions geiser:symbol-location geiser:module-location - geiser:module-children + geiser:module-exports geiser:autodoc geiser:help) @@ -61,7 +61,7 @@ (define geiser:module-completions module-completions) (define geiser:symbol-location symbol-location) (define geiser:module-location module-location) - (define geiser:module-children module-children) + (define geiser:module-exports module-exports) (define geiser:macroexpand macroexpand) (current-prompt-read (compose (make-repl-reader (current-prompt-read)) diff --git a/scheme/plt/geiser/modules.ss b/scheme/plt/geiser/modules.ss index 02287e0..cee90ef 100644 --- a/scheme/plt/geiser/modules.ss +++ b/scheme/plt/geiser/modules.ss @@ -28,7 +28,7 @@ module-path-name->name module-spec->path-name module-list - module-children) + module-exports) (require srfi/13 scheme/enter syntax/modresolve syntax/modcode) @@ -128,7 +128,7 @@ string<?))) module-cache) -(define (module-children mod) +(define (module-exports mod) (define (extract-ids ls) (append-map (lambda (idls) (map car (cdr idls))) |