04/05: packages: Add 'search-patches'.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 25897079a2ea66191b22e6d0c7411d3b3a29a642
Author: Alex Kost <address@hidden>
Date:   Fri Apr 8 11:28:40 2016 +0300

    packages: Add 'search-patches'.
    
    * gnu/packages.scm (search-patches): New macro.
---
 gnu/packages.scm |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/gnu/packages.scm b/gnu/packages.scm
index bbd460a..1e3f383 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."