From aad560a56f7c5c9ea2bcf7c3e51973ef826f736f Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 24 Nov 2013 22:57:06 +0100 Subject: 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. --- build-aux/list-packages.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'build-aux/list-packages.scm') 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 @@ (define (patch-url patch) (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"))) -- cgit v1.2.3