diff options
| author | Andy Patterson <ajpatter@uwaterloo.ca> | 2017-04-03 09:01:20 -0400 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2017-05-16 15:18:14 +0200 |
| commit | bc389c20a91f05cc905d224e83a768a89ecf83b2 (patch) | |
| tree | 0f8e63865042e92c042ca361e61b336083a90327 /guix/build/asdf-build-system.scm | |
| parent | 75e8b3af69dc3b1544c26ddd52bddb225f217d99 (diff) | |
| download | guix-patches-bc389c20a91f05cc905d224e83a768a89ecf83b2.tar guix-patches-bc389c20a91f05cc905d224e83a768a89ecf83b2.tar.gz | |
build-system/asdf: Rename %install-prefix to %source-install-prefix.
* guix/build/lisp-utils.scm (%install-prefix): Rename to
%source-install-prefix.
(build-install-prefix): Use it.
* guix/build/asdf-build-system.scm (source-install-prefix)
(%system-install-prefix, source-directory, copy-source): Likewise.
Diffstat (limited to 'guix/build/asdf-build-system.scm')
| -rw-r--r-- | guix/build/asdf-build-system.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/build/asdf-build-system.scm b/guix/build/asdf-build-system.scm index 085d073dea..c6770c41d1 100644 --- a/guix/build/asdf-build-system.scm +++ b/guix/build/asdf-build-system.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2016 Andy Patterson <ajpatter@uwaterloo.ca> +;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca> ;;; ;;; This file is part of GNU Guix. ;;; @@ -43,10 +43,10 @@ (define %object-prefix "/lib") (define (source-install-prefix lisp) - (string-append %install-prefix "/" lisp "-source")) + (string-append %source-install-prefix "/" lisp "-source")) (define %system-install-prefix - (string-append %install-prefix "/systems")) + (string-append %source-install-prefix "/systems")) (define (output-path->package-name path) (package-name->name+version (strip-store-file-name path))) @@ -59,7 +59,7 @@ (string-append output (source-install-prefix lisp) "/" name)) (define (source-directory output name) - (string-append output %install-prefix "/source/" name)) + (string-append output %source-install-prefix "/source/" name)) (define (library-directory output lisp) (string-append output %object-prefix @@ -103,7 +103,7 @@ before any compiling so that the compiled source locations will be valid." "Copy the source to \"out\"." (let* ((out (assoc-ref outputs "out")) (name (remove-lisp-from-name (output-path->package-name out) lisp)) - (install-path (string-append out %install-prefix))) + (install-path (string-append out %source-install-prefix))) (copy-files-to-output outputs "out" name) ;; Hide the files from asdf (with-directory-excursion install-path |