gnu: cross-base: Fix PACKAGE-WITH-EXTRA-PATCHES
authorCarl Dong <contact@carldong.me>
Fri, 3 Apr 2020 17:46:17 +0000 (13:46 -0400)
committerCarl Dong <contact@carldong.me>
Fri, 3 Apr 2020 18:13:36 +0000 (14:13 -0400)
This also removes the execute bit from the patches added. Not sure how
or why those were set in the first place.

* gnu/packages/cross-base.scm (package-with-extra-patches): Imitate
PACKAGE-WITH-PATCH instead of using it.
* gnu/packages/patches/binutils-mingw-w64-reproducible-import-libraries.patch:
Remove execute bit.
* gnu/packages/patches/binutils-mingw-w64-specify-timestamp.patch:
Remove execute bit.

gnu/packages/cross-base.scm
gnu/packages/patches/binutils-mingw-w64-reproducible-import-libraries.patch [changed mode: 0755->0644]
gnu/packages/patches/binutils-mingw-w64-specify-timestamp.patch [changed mode: 0755->0644]

index dc63dc9..add1a6f 100644 (file)
     (source (origin (inherit (package-source original))
               (patches (list patch))))))
 
-(define (package-with-extra-patches original patches)
+(define (package-with-extra-patches original extra-patches)
   "Return package ORIGINAL with all PATCHES appended to its list of patches."
-  (package-with-patch original
-                      `(,@(origin-patches (package-source original))
-                        ,@patches)))
+  (let ((original-origin (package-source original)))
+    (package (inherit original)
+      (source (origin (inherit original-origin)
+                (patches `(,@extra-patches
+                           ,@(origin-patches original-origin))))))))
 
 (define (cross-binutils target)
   "Return a cross-Binutils for TARGET."