>From f491f62f16726d4b575db784781f50541e168b81 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Sat, 26 Sep 2015 18:47:37 +0200 Subject: [PATCH] lint: Fix 'check-texinfo-markup'. Fixes a regression introduced in 5d8d8f3. * guix/scripts/lint.scm (check-description-style): When no exception is thrown in 'check-texinfo-markup', return the rendered description. --- guix/scripts/lint.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index 0adb3bf..3b4ff72 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -146,11 +146,13 @@ monad." (define (check-texinfo-markup description) "Check that DESCRIPTION can be parsed as a Texinfo fragment. If the markup is valid return a plain-text version of DESCRIPTION, otherwise #f." - (unless (false-if-exception (texi->plain-text description)) - (emit-warning package - (_ "Texinfo markup in description is invalid") - 'description) - #f)) + (catch #t + (lambda () (texi->plain-text description)) + (lambda (keys . args) + (emit-warning package + (_ "Texinfo markup in description is invalid") + 'description) + #f))) (define (check-proper-start description) (unless (or (properly-starts-sentence? description) -- 2.5.3