[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: lint: Fix 'check-texinfo-markup'.
From: |
Mathieu Lirzin |
Subject: |
03/03: lint: Fix 'check-texinfo-markup'. |
Date: |
Sun, 27 Sep 2015 22:28:01 +0000 |
mthl pushed a commit to branch master
in repository guix.
commit cd8b7cfb3f80631049bfb548838209b354222705
Author: Mathieu Lirzin <address@hidden>
Date: Sat Sep 26 18:47:37 2015 +0200
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 files 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)