diff options
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/guile/geiser/emacs.scm | 2 | ||||
| -rw-r--r-- | scheme/guile/geiser/modules.scm | 4 | ||||
| -rw-r--r-- | scheme/plt/geiser.ss | 4 | ||||
| -rw-r--r-- | scheme/plt/geiser/modules.ss | 4 |
4 files changed, 7 insertions, 7 deletions
diff --git a/scheme/guile/geiser/emacs.scm b/scheme/guile/geiser/emacs.scm index 106b8b1..edae487 100644 --- a/scheme/guile/geiser/emacs.scm +++ b/scheme/guile/geiser/emacs.scm @@ -36,7 +36,7 @@ ge:symbol-location ge:generic-methods ge:symbol-documentation - ge:module-children + ge:module-exports ge:module-location ge:callers ge:callees) diff --git a/scheme/guile/geiser/modules.scm b/scheme/guile/geiser/modules.scm index eccf773..1069d02 100644 --- a/scheme/guile/geiser/modules.scm +++ b/scheme/guile/geiser/modules.scm @@ -28,7 +28,7 @@ #:export (symbol-module module-filename all-modules - module-children + module-exports module-location) #:use-module (geiser utils) #:use-module (system vm program) @@ -65,7 +65,7 @@ roots roots)))) -(define (module-children mod-name) +(define (module-exports mod-name) (let* ((elts (hash-fold classify-module-object (list '() '() '()) (module-obarray (maybe-module-interface mod-name)))) 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))) |