pkgs/development/libraries/slib/catalog-in-library-vicinity.patch

   1 Write the catalog in under `(library-vicinity)', which is a subdir of $out,
   2 rather than under `(implementation-vicinity)', which is a subdir of ${scheme}.
   3
   4 The downside is that we can't build an SLIB for several Schemes at the
   5 same 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