tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-28 12:01:49 +02:00
Code Activity

packages: Add 'search-patches'.

Browse Source 
* 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
Download Patch File Download Diff File Expand all files Collapse all files
gnu/packages.scm
+6
View File
@@ -37,6 +37,7 @@
#:use-module (srfi srfi-35) #:use-module (srfi srfi-35)
#:use-module (srfi srfi-39) #:use-module (srfi srfi-39)
#:export (search-patch #:export (search-patch
search-patches
search-bootstrap-binary search-bootstrap-binary
%patch-path %patch-path
%bootstrap-binaries-path %bootstrap-binaries-path
@@ -76,6 +77,11 @@
(&message (message (format #f (_ "~a: patch not found") (&message (message (format #f (_ "~a: patch not found")
file-name))))))) 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) (define (search-bootstrap-binary file-name system)
"Search the bootstrap binary FILE-NAME for SYSTEM. Raise an error if not "Search the bootstrap binary FILE-NAME for SYSTEM. Raise an error if not
found." found."