1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00

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

scheme-implementation-type, scheme-implemenation-version):
	use define-public to export from the module.
This commit is contained in:
Gary Houston 1999-12-15 18:12:44 +00:00
parent e18a3a4d23
commit f353a9e232
3 changed files with 14 additions and 5 deletions

5
THANKS
View file

@ -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

View file

@ -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,

View file

@ -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)