* slib.scm (library-vicinity, home-vicinity,

	scheme-implementation-type, scheme-implemenation-version):
	use define-public to export from the module.

diff --git a/THANKS b/THANKS
index b391398..bf57ae6 100644 (file)
--- a/THANKS
+++ b/THANKS
@@ -1,4 +1,4 @@
-The Guile maintainer is Maciej Stachow.
+The Guile maintainer is Maciej Stachowiak.
 
 Contributors since the last release:
 
@@ -12,9 +12,12 @@ Bug reports and fixes:
      Lauri Alanko
       Mark Galassi
       Greg Harvey
+      Dirk Hermann
+      Eric Moore
     Roland Orre
   Bertrand Petit
     Jorgen Schaefer
     Daniel Skarda
    Bernard Urban
       Lynn Winebarger
+      Ryan Yeske

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index e270f80..abcc90c 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+1999-12-15  Gary Houston  <ghouston@freewire.co.uk>
+
+       * slib.scm (library-vicinity, home-vicinity, 
+       scheme-implementation-type, scheme-implemenation-version):
+       use define-public to export from the module.
+
 Wed Dec 15 08:32:09 1999  Greg J. Badros  <gjb@cs.washington.edu>
 
        * doc.scm: Use `%library-dir' and the other system directories,

diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index cbd4eab..44fbdf6 100644 (file)
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -167,13 +167,13 @@
 
 (define-public (implementation-vicinity)
   (string-append slib-parent-dir "/"))
-(define (library-vicinity)
+(define-public (library-vicinity)
   (string-append (implementation-vicinity) "slib/"))
-(define home-vicinity
+(define-public home-vicinity
   (let ((home-path (getenv "HOME")))
     (lambda () home-path)))
-(define (scheme-implementation-type) 'guile)
-(define (scheme-implementation-version) "")
+(define-public (scheme-implementation-type) 'guile)
+(define-public (scheme-implementation-version) "")
 
 (define (output-port-width . arg) 80)
 (define (output-port-height . arg) 24)