From e04741f160e77fe41d02129011bc2bb20ad27669 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Thu, 1 Oct 2015 21:10:16 +0300 Subject: [PATCH] lint: Export 'run-checkers'. * 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 3b4ff722e9..b1707ade44 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)