From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 3/4] lint: Export 'run-checkers'. Date: Fri, 2 Oct 2015 16:04:05 +0300 Message-ID: <1443791046-1015-4-git-send-email-alezost@gmail.com> References: <1443791046-1015-1-git-send-email-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:37960) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zi00j-0007E9-Er for guix-devel@gnu.org; Fri, 02 Oct 2015 09:04:30 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Zi00g-0001qG-IE for guix-devel@gnu.org; Fri, 02 Oct 2015 09:04:29 -0400 Received: from mail-la0-x235.google.com ([2a00:1450:4010:c03::235]:35662) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zi00g-0001pk-B2 for guix-devel@gnu.org; Fri, 02 Oct 2015 09:04:26 -0400 Received: by laer8 with SMTP id r8so91974878lae.2 for ; Fri, 02 Oct 2015 06:04:25 -0700 (PDT) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id a188sm1516555lfa.9.2015.10.02.06.04.24 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Fri, 02 Oct 2015 06:04:25 -0700 (PDT) In-Reply-To: <1443791046-1015-1-git-send-email-alezost@gmail.com> 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-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * guix/scripts/lint.scm (run-checkers): Export. Make 'checkers' argument optional. --- guix/scripts/lint.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index 3b4ff72..b1707ad 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -62,6 +62,7 @@ check-source-file-name check-license check-formatting + run-checkers %checkers lint-checker @@ -709,8 +710,8 @@ or a list thereof") (description "Look for formatting issues in the source") (check check-formatting)))) -(define (run-checkers package checkers) - ;; Run the given CHECKERS on PACKAGE. +(define* (run-checkers package #:optional (checkers %checkers)) + "Run the given CHECKERS on PACKAGE." (let ((tty? (isatty? (current-error-port))) (name (package-full-name package))) (for-each (lambda (checker) -- 2.5.0