diff options
| -rw-r--r-- | elisp/geiser-doc.el | 10 | ||||
| -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 |
5 files changed, 12 insertions, 12 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index d73ce6d..8024239 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -167,8 +167,8 @@ (defun geiser-doc--get-docstring (symbol module) (geiser-eval--send/result `(:eval ((:ge symbol-documentation) ',symbol) ,module))) -(defun geiser-doc--get-module-children (module) - (geiser-eval--send/result `(:eval ((:ge module-children) (:module ,module))))) +(defun geiser-doc--get-module-exports (module) + (geiser-eval--send/result `(:eval ((:ge module-exports) (:module ,module))))) (defun geiser-doc-symbol (symbol &optional module impl) (let ((module (or module (geiser-eval--get-module)))) @@ -201,9 +201,9 @@ With prefix argument, ask for symbol (with completion)." "Display information about a given module." (interactive) (let* ((module (or module (geiser-completion--read-module))) - (children (geiser-doc--get-module-children module)) + (exports (geiser-doc--get-module-exports module)) (impl (or impl geiser-impl--implementation))) - (if (not children) + (if (not exports) (message "No information available for %s" module) (geiser-doc--with-buffer (erase-buffer) @@ -214,7 +214,7 @@ With prefix argument, ask for symbol (with completion)." ("Syntax:" . syntax) ("Submodules:" . modules))) (geiser-doc--insert-list (car g) - (cdr (assoc (cdr g) children)) + (cdr (assoc (cdr g) exports)) module impl)) (goto-char (point-min)) 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))) |