From: Nick Gasson Date: Sun, 4 Oct 2020 16:25:35 +0800 Subject: Use Debian install directory in library-vicinity --- RScheme.init | 2 +- STk.init | 2 +- chez.init | 2 +- elk.init | 2 +- gambit.init | 2 +- kawa.init | 2 +- mitscheme.init | 2 +- s7.init | 2 +- scheme2c.init | 2 +- vscm.init | 2 +- 10 files changed, 10 insertions(+), 10 deletions(-) diff --git a/RScheme.init b/RScheme.init index a9607f4..aa69c68 100755 --- a/RScheme.init +++ b/RScheme.init @@ -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 ""))))) diff --git a/STk.init b/STk.init index c73f33a..2004609 100755 --- a/STk.init +++ b/STk.init @@ -35,7 +35,7 @@ ;;; (library-vicinity) should be defined to be the pathname of the ;;; directory where files of Scheme library functions reside. (define library-vicinity - (let ((library-path (or (getenv "SCHEME_LIBRARY_PATH") "/usr/local/lib/slib/"))) + (let ((library-path (or (getenv "SCHEME_LIBRARY_PATH") "/usr/share/slib/"))) (lambda () library-path))) diff --git a/chez.init b/chez.init index cb85c4a..829d777 100755 --- a/chez.init +++ b/chez.init @@ -43,7 +43,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/") ((vms) "lib$scheme:") ((ms-dos) "C:\\SLIB\\") (else ""))))) diff --git a/elk.init b/elk.init index 3021352..685b7d6 100755 --- a/elk.init +++ b/elk.init @@ -56,7 +56,7 @@ (or (getenv "SCHEME_LIBRARY_PATH") ;; Uses this path if SCHEME_LIBRARY_PATH is not defined. (case (software-type) - ((unix) "/usr/local/lib/slib/") + ((unix) "/usr/share/slib/") ((vms) "lib$scheme:") ((ms-dos) "C:\\SLIB\\") (else ""))))) diff --git a/gambit.init b/gambit.init index d96ab96..5992ab0 100755 --- a/gambit.init +++ b/gambit.init @@ -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:") diff --git a/kawa.init b/kawa.init index dde1051..f400605 100755 --- a/kawa.init +++ b/kawa.init @@ -43,7 +43,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/") ((vms) "lib$scheme:") ((ms-dos) "C:\\SLIB\\") (else ""))))) diff --git a/mitscheme.init b/mitscheme.init index bb21a9e..764ad83 100755 --- a/mitscheme.init +++ b/mitscheme.init @@ -60,7 +60,7 @@ ;; Use this path if your scheme does not support GETENV. (case (software-type) ((ms-dos) "c:\\slib\\") - ((unix) "/usr/local/lib/slib/") + ((unix) "/usr/share/slib/") (else ""))))) (lambda () library-path))) diff --git a/s7.init b/s7.init index 8e240a0..447cdc6 100755 --- a/s7.init +++ b/s7.init @@ -47,7 +47,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/") ((vms) "lib$scheme:") ((ms-dos) "C:\\Program Files\\slib\\") (else ""))))) diff --git a/scheme2c.init b/scheme2c.init index 4f98f81..c56cfd6 100755 --- a/scheme2c.init +++ b/scheme2c.init @@ -43,7 +43,7 @@ (define library-vicinity (let ((library-path (case (software-type) - ((unix) "/usr/local/lib/slib/") + ((unix) "/usr/share/slib/") ((vms) "lib$scheme:") ((ms-dos) "C:\\SLIB\\") (else "")))) diff --git a/vscm.init b/vscm.init index d6e48d3..2f06993 100755 --- a/vscm.init +++ b/vscm.init @@ -72,7 +72,7 @@ (or (getenv "SCHEME_LIBRARY_PATH") ;; Uses this path if SCHEME_LIBRARY_PATH is not set. (case (software-type) - ((unix) "/usr/local/lib/slib/") + ((unix) "/usr/share/slib/") ((vms) "lib$scheme:") ((ms-dos) "C:\\SLIB\\") (else "")))))