aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-03-28 17:56:27 +0100
committerLudovic Courtès <ludo@gnu.org>2015-04-15 10:19:47 +0200
commit1590e8a1dda793a16d9c70a666b0a8b5d41a94f5 (patch)
treec7210ae0becf363218ed8d9f4eb13076c789b8e1
parent691cb22b1b4be122fc67d51c890e9fbf1643a182 (diff)
downloadguix-1590e8a1dda793a16d9c70a666b0a8b5d41a94f5.tar
guix-1590e8a1dda793a16d9c70a666b0a8b5d41a94f5.tar.gz
packages: Refer to the native tools when handling sources and downloads.
* guix/packages.scm (patch-and-repack)[build]: Change most #$ to #+. * guix/cvs-download.scm (cvs-fetch)[build]: Likewise. * guix/download.scm (url-fetch)[builder]: Likewise. * guix/git-download.scm (git-fetch)[build]: Likewise. * guix/svn-download.scm (svn-fetch)[build]: Likewise.
-rw-r--r--guix/cvs-download.scm2
-rw-r--r--guix/download.scm4
-rw-r--r--guix/git-download.scm4
-rw-r--r--guix/packages.scm36
-rw-r--r--guix/svn-download.scm2
5 files changed, 24 insertions, 24 deletions
diff --git a/guix/cvs-download.scm b/guix/cvs-download.scm
index 8a0d479fa4..72478dd2c2 100644
--- a/guix/cvs-download.scm
+++ b/guix/cvs-download.scm
@@ -66,7 +66,7 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if #f."
'#$(cvs-reference-module ref)
'#$(cvs-reference-revision ref)
#$output
- #:cvs-command (string-append #$cvs "/bin/cvs"))))
+ #:cvs-command (string-append #+cvs "/bin/cvs"))))
(mlet %store-monad ((guile (package->derivation guile system)))
(gexp->derivation (or name "cvs-checkout") build
diff --git a/guix/download.scm b/guix/download.scm
index d87d02e2af..3e4024fe1f 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -241,12 +241,12 @@ in the store."
(define builder
#~(begin
- #$(if need-gnutls?
+ #+(if need-gnutls?
;; Add GnuTLS to the inputs and to the load path.
#~(eval-when (load expand eval)
(set! %load-path
- (cons (string-append #$(gnutls-package)
+ (cons (string-append #+(gnutls-package)
"/share/guile/site/"
(effective-version))
%load-path)))
diff --git a/guix/git-download.scm b/guix/git-download.scm
index 94a1245480..f4b48d7a6b 100644
--- a/guix/git-download.scm
+++ b/guix/git-download.scm
@@ -76,7 +76,7 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if #f."
;; The 'git submodule' commands expects Coreutils, sed,
;; grep, etc. to be in $PATH.
(set-path-environment-variable "PATH" '("bin")
- (match '#$inputs
+ (match '#+inputs
(((names dirs) ...)
dirs)))
@@ -84,7 +84,7 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if #f."
'#$(git-reference-commit ref)
#$output
#:recursive? '#$(git-reference-recursive? ref)
- #:git-command (string-append #$git "/bin/git"))))
+ #:git-command (string-append #+git "/bin/git"))))
(mlet %store-monad ((guile (package->derivation guile system)))
(gexp->derivation (or name "git-checkout") build
diff --git a/guix/packages.scm b/guix/packages.scm
index 7d4696fb5e..8ebe8d06b5 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -436,8 +436,8 @@ IMPORTED-MODULES specify modules to use/import for use by SNIPPET."
;; Use '--force' so that patches that do not apply perfectly are
;; rejected.
- (zero? (system* (string-append #$patch "/bin/patch")
- "--force" #$@flags "--input" patch)))
+ (zero? (system* (string-append #+patch "/bin/patch")
+ "--force" #+@flags "--input" patch)))
(define (first-file directory)
;; Return the name of the first file in DIRECTORY.
@@ -448,49 +448,49 @@ IMPORTED-MODULES specify modules to use/import for use by SNIPPET."
;; Encoding/decoding errors shouldn't be silent.
(fluid-set! %default-port-conversion-strategy 'error)
- (when #$locales
+ (when #+locales
;; First of all, install a UTF-8 locale so that UTF-8 file names
;; are correctly interpreted. During bootstrap, LOCALES is #f.
- (setenv "LOCPATH" (string-append #$locales "/lib/locale"))
+ (setenv "LOCPATH" (string-append #+locales "/lib/locale"))
(setlocale LC_ALL "en_US.UTF-8"))
- (setenv "PATH" (string-append #$xz "/bin" ":"
- #$decomp "/bin"))
+ (setenv "PATH" (string-append #+xz "/bin" ":"
+ #+decomp "/bin"))
;; SOURCE may be either a directory or a tarball.
- (and (if (file-is-directory? #$source)
+ (and (if (file-is-directory? #+source)
(let* ((store (or (getenv "NIX_STORE") "/gnu/store"))
(len (+ 1 (string-length store)))
- (base (string-drop #$source len))
+ (base (string-drop #+source len))
(dash (string-index base #\-))
(directory (string-drop base (+ 1 dash))))
(mkdir directory)
- (copy-recursively #$source directory)
+ (copy-recursively #+source directory)
#t)
- #$(if (string=? decompression-type "unzip")
- #~(zero? (system* "unzip" #$source))
- #~(zero? (system* (string-append #$tar "/bin/tar")
- "xvf" #$source))))
+ #+(if (string=? decompression-type "unzip")
+ #~(zero? (system* "unzip" #+source))
+ #~(zero? (system* (string-append #+tar "/bin/tar")
+ "xvf" #+source))))
(let ((directory (first-file ".")))
(format (current-error-port)
"source is under '~a'~%" directory)
(chdir directory)
- (and (every apply-patch '#$patches)
- #$@(if snippet
+ (and (every apply-patch '#+patches)
+ #+@(if snippet
#~((let ((module (make-fresh-user-module)))
(module-use-interfaces! module
(map resolve-interface
- '#$modules))
+ '#+modules))
((@ (system base compile) compile)
- '#$snippet
+ '#+snippet
#:to 'value
#:opts %auto-compilation-options
#:env module)))
#~())
(begin (chdir "..") #t)
- (zero? (system* (string-append #$tar "/bin/tar")
+ (zero? (system* (string-append #+tar "/bin/tar")
"cvfa" #$output directory)))))))
(let ((name (tarxz-name original-file-name))
diff --git a/guix/svn-download.scm b/guix/svn-download.scm
index 92b03d13f3..d6853ca861 100644
--- a/guix/svn-download.scm
+++ b/guix/svn-download.scm
@@ -62,7 +62,7 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if #f."
(svn-fetch '#$(svn-reference-url ref)
'#$(svn-reference-revision ref)
#$output
- #:svn-command (string-append #$svn "/bin/svn"))))
+ #:svn-command (string-append #+svn "/bin/svn"))))
(mlet %store-monad ((guile (package->derivation guile system)))
(gexp->derivation (or name "svn-checkout") build