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.

---
 scheme/plt/geiser.ss         | 4 ++--
 scheme/plt/geiser/modules.ss | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'scheme/plt')

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