From c2e4f14ac8cd3e1ce7f46a192ad0c9acc084b210 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 30 Apr 2017 13:01:20 +0200 Subject: gnu: glibc/linux: Fix build of glibc-intermediate. This is a follow-up to commit b2fd8f63679aa4f244c36fdca62f23c00b8eded9. * gnu/packages/base.scm (glibc/linux)[arguments]: Take patch from either native-inputs or just inputs; fix syntax error; report errors on patch failure. --- gnu/packages/base.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'gnu/packages') diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm index 6dc9e97c34..e896dbe2e1 100644 --- a/gnu/packages/base.scm +++ b/gnu/packages/base.scm @@ -670,10 +670,13 @@ store.") ;; TODO: Move the patch to 'patches' in the next update cycle. ,@(if (string-prefix? "i686" (or (%current-target-system) (%current-system))) - `(zero? (system* "patch" "-p1" "--force" - "--input" - (assoc-ref native-inputs - "glibc-memchr-overflow-i686.patch"))) + `((unless (zero? (system* "patch" "-p1" "--force" + "--input" + (or (assoc-ref native-inputs + "glibc-memchr-overflow-i686.patch") + (assoc-ref inputs + "glibc-memchr-overflow-i686.patch")))) + (error "patch failed for glibc-memchr-overflow-i686.patch"))) '()) ;; Have `system' use that Bash. -- cgit 1.4.1