From 26929de58ec387bcdac0010067c310dbc6ff0d2a Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 25 May 2009 23:18:55 +0200
Subject: module-children -> module-exports.

---
 elisp/geiser-doc.el             | 10 +++++-----
 scheme/guile/geiser/emacs.scm   |  2 +-
 scheme/guile/geiser/modules.scm |  4 ++--
 scheme/plt/geiser.ss            |  4 ++--
 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)))
-- 
cgit v1.2.3