aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-04-08 11:28:40 +0300
committerAlex Kost <alezost@gmail.com>2016-04-14 10:36:11 +0300
commit25897079a2ea66191b22e6d0c7411d3b3a29a642 (patch)
tree097dec3f80518aa42a74b890dd0eb48e3d97fbc5
parent82fd23b81f6ab71ef4bc5f95f273bd77dbe6baf5 (diff)
downloadguix-25897079a2ea66191b22e6d0c7411d3b3a29a642.tar
guix-25897079a2ea66191b22e6d0c7411d3b3a29a642.tar.gz
packages: Add 'search-patches'.
* gnu/packages.scm (search-patches): New macro.
-rw-r--r--gnu/packages.scm6
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."