diff options
-rw-r--r-- | THANKS | 5 | ||||
-rw-r--r-- | ice-9/ChangeLog | 6 | ||||
-rw-r--r-- | ice-9/slib.scm | 8 |
3 files changed, 14 insertions, 5 deletions
@@ -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 e270f806c..abcc90c7b 100644 --- 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 cbd4eab45..44fbdf6e7 100644 --- 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) |