From cd8b7cfb3f80631049bfb548838209b354222705 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Sat, 26 Sep 2015 18:47:37 +0200 Subject: 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(-) (limited to 'guix/scripts') diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index 0adb3bf179..3b4ff722e9 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -146,11 +146,13 @@ (define (check-not-empty description) (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) -- cgit v1.2.3