From 4ca0c93875b14fd82693bd4fd9ce2b3ecf2c6ed4 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Mon, 23 Jan 2017 02:38:31 +0100 Subject: [PATCH] build: Add '%aux-dir' variable. * build-aux/guix.scm (%aux-dir): New variable. Use it. --- build-aux/guix.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/build-aux/guix.scm b/build-aux/guix.scm index 7999d2f..d816713 100644 --- a/build-aux/guix.scm +++ b/build-aux/guix.scm @@ -35,13 +35,16 @@ "aclocal.m4" "bin/cuirass" "bin/evaluate" "config.cache" "guix.scm"))))) +(define %aux-dir + (current-source-directory)) + (define %srcdir - (or (current-source-directory) ".")) + (dirname %aux-dir)) (define (git-version-gen) ;; Return a string containing Cuirass version number. (let* ((cmd "git-version-gen .tarball-version") - (port (open-input-pipe (string-append %srcdir "/" cmd))) + (port (open-input-pipe (string-append %aux-dir "/" cmd))) (str (read-line port))) (close-pipe port) str)) @@ -52,7 +55,7 @@ (package (inherit (specification->package "cuirass")) (version (git-version-gen)) - (source (local-file (dirname %srcdir) #:recursive? #t + (source (local-file %srcdir #:recursive? #t #:select? keep-cuirass-file?)) (arguments '(#:phases