mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

* boot-9.scm (%load-path): Add the site directory.

Browse source 
Add the directory named after the version number.
Prepend the version number to the other directories in the path.
Simplify by mapping the common prefix onto each item.
* Makefile.in (datadir, pkgdatadir, pkgverdatadir, subpkgdatadir,
sitedatadir): New definitions.
(libparent, libdir, install_path): Replaced by above.
(install): Create the above directories.
Put the source files into subpkgdatadir.
(uninstall): Remove the above directories.
This commit is contained in:
Jim Blandy 1996-08-30 21:09:23 +00:00
parent e9b367a54b
commit 02ceadb86c
2 changed files with 24 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

13
ice-9/boot-9.scm
View file

@ -789,11 +789,14 @@
(define %load-path
(let ((lp (catch #t (lambda () (getenv "SCHEME_LOAD_PATH"))
(lambda args #f))))
(append (parse-path lp)
(list ""
(in-vicinity (implementation-vicinity) "guile1.0b3/guile/")
(in-vicinity (implementation-vicinity) "guile1.0b3/")
(in-vicinity (implementation-vicinity) "slib/")))))
(append
(parse-path lp)
(cons "./"
(map (lambda (dir) (in-vicinity (implementation-vicinity) dir "/"))
(cons "site"
(map (lambda (dir) (string-append (version) "/" dir))
'("." "gls/guile" "gls" "slib"))))))))
;;; {try-load}
;;;