diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-11-24 22:57:06 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-11-24 22:57:06 +0100 |
| commit | aad560a56f7c5c9ea2bcf7c3e51973ef826f736f (patch) | |
| tree | 2ff933002d9dd05ff4e510dd25fb2edb8467f95c | |
| parent | 840f71cdfc45356bfe49658eace499e0524f6aa8 (diff) | |
| download | patches-aad560a56f7c5c9ea2bcf7c3e51973ef826f736f.tar patches-aad560a56f7c5c9ea2bcf7c3e51973ef826f736f.tar.gz | |
list-packages: Make 'snippet-link' more tolerant.
* build-aux/list-packages.scm (package->sxml)[snippet-link]: If
'package-field-location' returns #f, use 'package-location.
| -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"))) |