summaryrefslogtreecommitdiff
path: root/guix/scripts/lint.scm
diff options
context:
space:
mode:
authorMathieu Lirzin <mthl@openmailbox.org>2015-09-26 18:47:37 +0200
committerMathieu Lirzin <mthl@openmailbox.org>2015-09-28 00:23:12 +0200
commitcd8b7cfb3f80631049bfb548838209b354222705 (patch)
treed639ea5de17d62e986b0831de295cba1b7c77993 /guix/scripts/lint.scm
parentba7d6c763c6adac4cf26fef656c7f98296601d0b (diff)
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.
Diffstat (limited to 'guix/scripts/lint.scm')
-rw-r--r--guix/scripts/lint.scm12
1 files changed, 7 insertions, 5 deletions
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 @@ 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)