guix
/
guix
mirror of git://git.savannah.gnu.org/guix.git
3
4
Fork 0
Code Issues Releases Wiki Activity

packages: Add 'search-patches'. 

* gnu/packages.scm (search-patches): New macro.
This commit is contained in:
Alex Kost 2016-04-08 11:28:40 +03:00
parent 82fd23b81f
commit 25897079a2
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/packages.scm
View File

@ -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."