From 19197a7aca50a82a8b8d7945aa5a2cbe717e9400 Mon Sep 17 00:00:00 2001 From: michel-schinz Date: Thu, 1 Apr 2004 18:34:43 +0000 Subject: [PATCH] - install files in /share/scsh-install-lib and /share/doc/scsh-install-lib instead of the previous locations --- install.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/install.scm b/install.scm index adf7489..70a1b4f 100755 --- a/install.scm +++ b/install.scm @@ -4,9 +4,9 @@ exec scsh -e main -o let-opt -o srfi-1 -o srfi-37 -s "$0" "$@" ;; Install scsh's installation library as follows: ;; - files install-lib.scm and install-lib-module.scm go to -;; /share/scsh/install-lib/scheme/ +;; /share/scsh-install-lib/scheme/ ;; - file proposal.pdf goes to -;; /share/scsh/doc/install-lib/ +;; /share/doc/scsh-install-lib/ ;; - a new file called scsh-install-pkg, providing an entry point to ;; the installation library, is installed in /bin @@ -109,13 +109,13 @@ END (i-prefix (re-root-file-name r-prefix (alist-get 'dest-dir options)))) ;; Install documentation - (let ((doc-dir (absolute-file-name "share/doc/scsh/install-lib" + (let ((doc-dir (absolute-file-name "share/doc/scsh-install-lib" i-prefix))) (create-directory&parents doc-dir) (copy-file-to-dir "doc/proposal.pdf" doc-dir)) ;; Install Scheme code - (let ((scheme-dir (absolute-file-name "share/scsh/install-lib/scheme" + (let ((scheme-dir (absolute-file-name "share/scsh-install-lib/scheme" i-prefix))) (create-directory&parents scheme-dir) (copy-file-to-dir "scheme/install-lib.scm" scheme-dir) @@ -123,7 +123,7 @@ END ;; Install script (let ((bin-dir (absolute-file-name "bin" i-prefix)) - (r-scheme-dir (absolute-file-name "share/scsh/install-lib/scheme" + (r-scheme-dir (absolute-file-name "share/scsh-install-lib/scheme" r-prefix))) (create-directory&parents bin-dir) (call-with-output-file (absolute-file-name "scsh-install-pkg" bin-dir)