Don't error when processing revisions of Guix without graft support

This commit is contained in:
Christopher Baines 2019-09-29 10:44:25 +01:00
parent c81d1e04ea
commit d236f05d0f

View file

@ -716,7 +716,7 @@ WHERE job_id = $1"
(guix grafts)
(guix derivations))
inf)
(inferior-eval '(%graft? #f) inf)
(inferior-eval '(when (defined? '%graft?) (%graft? #f)) inf)
(let* ((inferior-glibc-locales
(first
@ -780,7 +780,7 @@ WHERE job_id = $1"
(guix grafts)
(guix derivations))
inf)
(inferior-eval '(%graft? #f) inf)
(inferior-eval '(when (defined? '%graft?) (%graft? #f)) inf)
(catch
#t