summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-25 23:18:55 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-25 23:18:55 +0200
commit26929de58ec387bcdac0010067c310dbc6ff0d2a (patch)
tree4032bb427c06772f5f19d7364ca3ace2ac7372d8
parent2b5abe839c5cbf34fa19e2298366973c4ec812f9 (diff)
downloadgeiser-chez-26929de58ec387bcdac0010067c310dbc6ff0d2a.tar.gz
geiser-chez-26929de58ec387bcdac0010067c310dbc6ff0d2a.tar.bz2
module-children -> module-exports.
-rw-r--r--elisp/geiser-doc.el10
-rw-r--r--scheme/guile/geiser/emacs.scm2
-rw-r--r--scheme/guile/geiser/modules.scm4
-rw-r--r--scheme/plt/geiser.ss4
-rw-r--r--scheme/plt/geiser/modules.ss4
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)))