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:
parent
e18a3a4d23
commit
f353a9e232
3 changed files with 14 additions and 5 deletions
5
THANKS
5
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
|
||||
|
|
|
@ -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,
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue