diff options
| -rwxr-xr-x | build-aux/list-packages.scm | 3 |
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"))) |