mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* slib.scm (slib-parent-dir): throw error if #f returned from

Browse source 
%search-load-path.
This commit is contained in:
Gary Houston 1996-12-12 00:16:05 +00:00
parent 9373b38711
commit 00f06035f1
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
Wed Dec 11 21:06:05 1996 Gary Houston <ghouston@actrix.gen.nz>
* slib.scm (slib-parent-dir): throw error if #f returned from
%search-load-path.
Sat Nov 30 23:57:28 1996 Tom Tromey <tromey@cygnus.com>
* PLUGIN/greet, PLUGIN/split.sed, PLUGIN/this.configure: Removed.

4
ice-9/slib.scm
View file

@ -127,7 +127,9 @@
(define slib-parent-dir
(let* ((path (%search-load-path "slib/require.scm")))
(make-shared-substring path 0 (- (string-length path) 17))))
(if path
(make-shared-substring path 0 (- (string-length path) 17))
(error "Could not find slib/require.scm in " %load-path))))
(define-public (implementation-vicinity)
(string-append slib-parent-dir "/"))