summary refs log tree commit diff
path: root/build-aux
diff options
context:
space:
mode:
Diffstat (limited to 'build-aux')
-rwxr-xr-xbuild-aux/list-packages.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm
index 6cf2c53491..d832374a9c 100755
--- a/build-aux/list-packages.scm
+++ b/build-aux/list-packages.scm
@@ -106,7 +106,8 @@ decreasing, is 1."
        (basename patch)))
 
     (define (snippet-link snippet)
-      (let ((loc (package-field-location package 'source)))
+      (let ((loc (or (package-field-location package 'source)
+                     (package-location package))))
         `(a (@ (href ,(location-url loc))
                (title "Link to patch snippet"))
             "snippet")))