From: Nick Gasson Date: Sun, 4 Oct 2020 20:46:31 +0800 Subject: Default implementation-vicinity under /var/lib/slib/ Bug-Debian: http://bugs.debian.org/970310 Forwarded: not-needed --- chez.init | 2 +- gambit.init | 2 +- mitscheme.init | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/chez.init b/chez.init index 829d777..3da3f4f 100755 --- a/chez.init +++ b/chez.init @@ -30,7 +30,7 @@ (define implementation-vicinity (let ((impl-path (or (getenv "CHEZ_IMPLEMENTATION_PATH") - "/usr/local/lib/chez/"))) + "/var/lib/slib/chez/"))) (lambda () impl-path))) ;;; (library-vicinity) should be defined to be the pathname of the diff --git a/gambit.init b/gambit.init index 5992ab0..932c175 100755 --- a/gambit.init +++ b/gambit.init @@ -38,7 +38,7 @@ (let ((impl-path (or (getenv "GAMBIT_IMPLEMENTATION_PATH") (case (software-type) - ((unix) "/usr/local/share/gambc/") + ((unix) "/var/lib/slib/gambc/") ((vms) "scheme$src:") ((ms-dos) "C:\\scheme\\") ((windows) "c:/scheme/") diff --git a/mitscheme.init b/mitscheme.init index 764ad83..9923862 100755 --- a/mitscheme.init +++ b/mitscheme.init @@ -49,7 +49,7 @@ (define implementation-vicinity (let ((impl-path (or (getenv "MITSCHEME_IMPLEMENTATION_PATH") - (->namestring (system-library-directory-pathname #f))))) + "/var/lib/slib/mitscheme/"))) (lambda () impl-path))) ;;; (library-vicinity) should be defined to be the pathname of the