diff options
| author | Alex Kost <alezost@gmail.com> | 2016-04-08 11:28:40 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-04-14 10:36:11 +0300 |
| commit | 25897079a2ea66191b22e6d0c7411d3b3a29a642 (patch) | |
| tree | 097dec3f80518aa42a74b890dd0eb48e3d97fbc5 | |
| parent | 82fd23b81f6ab71ef4bc5f95f273bd77dbe6baf5 (diff) | |
| download | guix-25897079a2ea66191b22e6d0c7411d3b3a29a642.tar guix-25897079a2ea66191b22e6d0c7411d3b3a29a642.tar.gz | |
packages: Add 'search-patches'.
* gnu/packages.scm (search-patches): New macro.
| -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." |