summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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")))