03/03: lint: Fix 'check-texinfo-markup'.

[Mathieu Lirzin]

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)