From 5ec09ac8673e9158172ba015b2082cc63517ea92 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 24 Jan 2025 15:56:04 +0100
Subject: upstream: ‘package-archive-type’ doesn’t choke on lack of extension.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* guix/upstream.scm (package-archive-type): Check whether EXTENSION is
true.

Change-Id: I35886770e7c0e941ff3990030dab03b53efc70ab
---
 guix/upstream.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/upstream.scm b/guix/upstream.scm
index c44afbc677..62ba6c9d39 100644
--- a/guix/upstream.scm
+++ b/guix/upstream.scm
@@ -427,7 +427,8 @@ (define (package-archive-type package)
      (let ((extension (file-extension file)))
        ;; FILE might be "example-1.2-checkout", in which case we want to
        ;; ignore the extension.
-       (and (or (string-contains extension "z")
+       (and (string? extension)
+            (or (string-contains extension "z")
                 (string-contains extension "tar"))
             extension)))))
 
-- 
cgit v1.2.3