From 68193624d1428836b18e93306f96e78706e082c3 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 23 Aug 2020 22:11:31 +0200
Subject: 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.
---
 guix/lint.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix')

diff --git a/guix/lint.scm b/guix/lint.scm
index 71ce931964..4a6abe4275 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -139,7 +139,7 @@ (define* (%make-warning package message-text
    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
-- 
cgit v1.2.3