gnu: glibc/linux: Fix build of glibc-intermediate.
This is a follow-up to commit b2fd8f6367.
* gnu/packages/base.scm (glibc/linux)[arguments]: Take patch from either
native-inputs or just inputs; fix syntax error; report errors on patch
failure.
			
			
This commit is contained in:
		
							parent
							
								
									dc00f63527
								
							
						
					
					
						commit
						c2e4f14ac8
					
				
					 1 changed files with 7 additions and 4 deletions
				
			
		|  | @ -670,10 +670,13 @@ store.") | ||||||
|                       ;; TODO: Move the patch to 'patches' in the next update cycle. |                       ;; TODO: Move the patch to 'patches' in the next update cycle. | ||||||
|                       ,@(if (string-prefix? "i686" (or (%current-target-system) |                       ,@(if (string-prefix? "i686" (or (%current-target-system) | ||||||
|                                                        (%current-system))) |                                                        (%current-system))) | ||||||
|                             `(zero? (system* "patch" "-p1" "--force" |                             `((unless (zero? (system* "patch" "-p1" "--force" | ||||||
|                                                       "--input" |                                                       "--input" | ||||||
|                                              (assoc-ref native-inputs |                                                       (or (assoc-ref native-inputs | ||||||
|                                                         "glibc-memchr-overflow-i686.patch"))) |                                                                      "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. |                       ;; Have `system' use that Bash. | ||||||
|  |  | ||||||
		Reference in a new issue