[PATCH 02/13] lint: Remove an unneeded clause in 'check-patch-file-names'.

[Mathieu Lirzin]

* guix/scripts/lint.scm (check-patch-file-names): Don't check if patches
start with the package full name since matching the package name (which
is a prefix of the full name) is sufficient.
---
 guix/scripts/lint.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index e2cc965..25f49a7 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2014 Cyril Roelandt <address@hidden>
 ;;; Copyright © 2014, 2015 Eric Bavier <address@hidden>
 ;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <address@hidden>
-;;; Copyright © 2015 Mathieu Lirzin <address@hidden>
+;;; Copyright © 2015, 2016 Mathieu Lirzin <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -417,15 +417,12 @@ patch could not be found."
              (emit-warning package (condition-message c)
                            'patch-file-names)))
     (let ((patches   (and=> (package-source package) origin-patches))
-          (name      (package-name package))
-          (full-name (package-full-name package)))
+          (name      (package-name package)))
       (when (and patches
                  (any (match-lambda
                         ((? string? patch)
                          (let ((file (basename patch)))
-                           (not (or (eq? (string-contains file name) 0)
-                                    (eq? (string-contains file full-name)
-                                         0)))))
+                           (not (eq? (string-contains file name) 0))))
                         (_
                          ;; This must be an <origin> or something like that.
                          #f))