mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

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

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

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: Contributors since the last release:
@ -12,9 +12,12 @@ Bug reports and fixes:
Lauri Alanko Lauri Alanko
Mark Galassi Mark Galassi
Greg Harvey Greg Harvey
Dirk Hermann
Eric Moore
Roland Orre Roland Orre
Bertrand Petit Bertrand Petit
Jorgen Schaefer Jorgen Schaefer
Daniel Skarda Daniel Skarda
Bernard Urban Bernard Urban
Lynn Winebarger Lynn Winebarger
Ryan Yeske

6
ice-9/ChangeLog
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> Wed Dec 15 08:32:09 1999 Greg J. Badros <gjb@cs.washington.edu>
* doc.scm: Use `%library-dir' and the other system directories, * doc.scm: Use `%library-dir' and the other system directories,

8
ice-9/slib.scm
View file

@ -167,13 +167,13 @@
(define-public (implementation-vicinity) (define-public (implementation-vicinity)
(string-append slib-parent-dir "/")) (string-append slib-parent-dir "/"))
(define (library-vicinity) (define-public (library-vicinity)
(string-append (implementation-vicinity) "slib/")) (string-append (implementation-vicinity) "slib/"))
(define home-vicinity (define-public home-vicinity
(let ((home-path (getenv "HOME"))) (let ((home-path (getenv "HOME")))
(lambda () home-path))) (lambda () home-path)))
(define (scheme-implementation-type) 'guile) (define-public (scheme-implementation-type) 'guile)
(define (scheme-implementation-version) "") (define-public (scheme-implementation-version) "")
(define (output-port-width . arg) 80) (define (output-port-width . arg) 80)
(define (output-port-height . arg) 24) (define (output-port-height . arg) 24)