gentoo/dev-scheme/slib/files/slib-3.2.5-fix-paths.patch
mudler edcd250c16
dev-scheme/slib: version bump to 3.2.5
* migrate to EAPI 6
* splitted sed calls in patches
* add local gambit and scm USE flags
* QA fixes, added DOCS

Gentoo-Bug: https://bugs.gentoo.org/show_bug.cgi?id=537306
Package-Manager: portage-2.3.1
2016-10-23 17:18:10 +02:00

43 lines
1.6 KiB
Diff

--- slib-3b5/~RScheme.init 2016-10-10 23:05:39.117046443 +0200
+++ slib-3b5/RScheme.init 2016-10-10 23:06:47.242857550 +0200
@@ -52,7 +52,7 @@
;; Use this path if your scheme does not support GETENV
;; or if SCHEME_LIBRARY_PATH is not set.
(case (software-type)
- ((unix) "/usr/lib/slib/")
+ ((unix) "/usr/share/slib/")
((vms) "lib$scheme:")
((ms-dos) "C:\\SLIB\\")
(else "")))))
--- slib-3b5/~gambit.init 2016-10-10 23:05:20.939634454 +0200
+++ slib-3b5/gambit.init 2016-10-10 23:07:46.571968697 +0200
@@ -38,7 +38,7 @@
(let ((impl-path
(or (getenv "GAMBIT_IMPLEMENTATION_PATH")
(case (software-type)
- ((unix) "/usr/local/share/gambc/")
+ ((unix) "/usr/share/gambc/")
((vms) "scheme$src:")
((ms-dos) "C:\\scheme\\")
((windows) "c:/scheme/")
@@ -65,7 +65,7 @@
;; Use this path if your scheme does not support GETENV
;; or if SCHEME_LIBRARY_PATH is not set.
(case (software-type)
- ((unix) "/usr/local/lib/slib/")
+ ((unix) "/usr/share/slib/")
((macos) (string-append (implementation-vicinity) "slib:"))
((amiga) "dh0:scm/Library/")
((vms) "lib$scheme:")
--- slib-3b5/~guile-2.init 2016-10-10 23:05:46.531807087 +0200
+++ slib-3b5/guile-2.init 2016-10-10 23:08:00.154538349 +0200
@@ -199,7 +199,7 @@
(define implementation-vicinity
(cond ((getenv "GUILE_IMPLEMENTATION_PATH")
=> (lambda (path) (lambda () path)))
- (else %site-dir)))
+ (else %library-dir)))
;;; (library-vicinity) should be defined to be the pathname of the
;;; directory where files of Scheme library functions reside.