diff options
author | Mathieu Lirzin <mthl@gnu.org> | 2016-05-02 17:53:40 +0200 |
---|---|---|
committer | Mathieu Lirzin <mthl@gnu.org> | 2016-05-02 17:53:40 +0200 |
commit | c3052d6bcd2193b258fb92b99291a4918931fe36 (patch) | |
tree | 0e0cbbc019e68f4f1c865b4d2f5e341eb45d96ee /gnu/packages.scm | |
parent | 0bfb9b439953b755a510974e51e651f79526a5a4 (diff) | |
parent | b74f64a960542b0679ab13de0dd28adc496cf084 (diff) | |
download | guix-c3052d6bcd2193b258fb92b99291a4918931fe36.tar.gz |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/packages.scm')
-rw-r--r-- | gnu/packages.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gnu/packages.scm b/gnu/packages.scm index bbd460a083..1e3f383cbc 100644 --- a/gnu/packages.scm +++ b/gnu/packages.scm @@ -37,6 +37,7 @@ #:use-module (srfi srfi-35) #:use-module (srfi srfi-39) #:export (search-patch + search-patches search-bootstrap-binary %patch-path %bootstrap-binaries-path @@ -76,6 +77,11 @@ (&message (message (format #f (_ "~a: patch not found") file-name))))))) +(define-syntax-rule (search-patches file-name ...) + "Return the list of absolute file names corresponding to each +FILE-NAME found in %PATCH-PATH." + (list (search-patch file-name) ...)) + (define (search-bootstrap-binary file-name system) "Search the bootstrap binary FILE-NAME for SYSTEM. Raise an error if not found." |