From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 1/2] packages: Add 'search-patches'. Date: Sat, 9 Apr 2016 11:17:56 +0300 Message-ID: <1460189877-5067-1-git-send-email-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:51323) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aoo5u-0000kf-26 for guix-devel@gnu.org; Sat, 09 Apr 2016 04:18:14 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aoo5q-00053c-Ss for guix-devel@gnu.org; Sat, 09 Apr 2016 04:18:13 -0400 Received: from mail-lf0-x241.google.com ([2a00:1450:4010:c07::241]:34572) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aoo5q-000538-Ka for guix-devel@gnu.org; Sat, 09 Apr 2016 04:18:10 -0400 Received: by mail-lf0-x241.google.com with SMTP id e190so12759659lfe.1 for ; Sat, 09 Apr 2016 01:18:10 -0700 (PDT) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id e6sm2702249lbk.32.2016.04.09.01.18.09 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Sat, 09 Apr 2016 01:18:09 -0700 (PDT) List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org * gnu/packages.scm (search-patches): New macro. --- gnu/packages.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/gnu/packages.scm b/gnu/packages.scm index bbd460a..979d93a 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,10 @@ (&message (message (format #f (_ "~a: patch not found") file-name))))))) +(define-syntax-rule (search-patches file-name ...) + "Return the list of patches for each FILE-NAME." + (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." -- 2.7.3