lint: Avoid calls to 'package-field-location' with #f as the field.

* guix/lint.scm (%make-warning): Call 'package-field-location' only when
FIELD is true.

diff --git a/guix/lint.scm b/guix/lint.scm
index 71ce931..4a6abe4 100644 (file)
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -139,7 +139,7 @@
    message-text
    message-data
    (or location
-       (package-field-location package field)
+       (and field (package-field-location package field))
        (package-location package))))
 
 (define-syntax make-warning