~ruther/guix-local: gnu-maintenance: Fix `gnu-package?' for packages lacking a `source'.

296540a6dbd594a34e6ea3c223081f123ce30c7a — Ludovic Courtès 13 years ago 19777ae

gnu-maintenance: Fix `gnu-package?' for packages lacking a `source'.

* guix/gnu-maintenance.scm (gnu-package?): Support PACKAGE when its
  source is #f.

patch browse .tar.gz

1 files changed, 4 insertions(+), 3 deletions(-)

M guix/gnu-maintenance.scm

M guix/gnu-maintenance.scm => guix/gnu-maintenance.scm +4 -3

@@ 84,9 84,10 @@
 network to check in GNU's database."
      ;; TODO: Find a way to determine that a package is non-GNU without going
      ;; through the network.
-     (let ((url (origin-uri (package-source package))))
-       (or (string-prefix? "mirror://gnu" url)
-           (member (package-name package) (official-gnu-packages)))))))
+     (let ((url (and=> (package-source package) origin-uri)))
+       (or (and (string? url) (string-prefix? "mirror://gnu" url))
+           (and (member (package-name package) (official-gnu-packages))
+                #t))))))
 
 
 ;;;