pyrox.dev
1Write the catalog in under `(library-vicinity)', which is a subdir of $out,
2rather than under `(implementation-vicinity)', which is a subdir of ${scheme}.
3
4The downside is that we can't build an SLIB for several Schemes at the
5same time.
6
7--- slib/mklibcat.scm 2007-12-24 05:47:34.000000000 +0100
8+++ slib/mklibcat.scm 2009-09-29 14:08:28.000000000 +0200
9@@ -17,7 +17,7 @@
10 ;promotional, or sales literature without prior written consent in
11 ;each case.
12
13-(let ((catpath (in-vicinity (implementation-vicinity) "slibcat")))
14+(let ((catpath (in-vicinity (library-vicinity) "slibcat")))
15 (and (file-exists? catpath) (delete-file catpath))
16 (call-with-output-file catpath
17 (lambda (op)
18
19--- slib/require.scm 2009-08-03 04:09:47.000000000 +0200
20+++ slib/require.scm 2009-09-29 14:13:56.000000000 +0200
21@@ -74,7 +74,7 @@
22
23 (define (catalog:get feature)
24 (if (not *catalog*)
25- (let ((slibcat (catalog:try-read (implementation-vicinity) "slibcat")))
26+ (let ((slibcat (catalog:try-read (library-vicinity) "slibcat")))
27 (cond ((not (catalog/require-version-match? slibcat))
28 (slib:load-source (in-vicinity (library-vicinity) "mklibcat"))
29 (set! slibcat