2 files changed, 32 insertions(+), 12 deletions(-)

M modules/zynqmp/packages/bootloader.scm
A modules/zynqmp/patches.scm

@@ 1,4 1,5 @@
 (define-module (zynqmp packages bootloader)
+  #:use-module (zynqmp patches)
   #:use-module (zynqmp packages firmware)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)


@@ 17,18 18,6 @@
   #:use-module (gnu packages firmware)
   #:export (u-boot-for-kr260))
 
-(define (search-patch patch)
-  (parameterize ((%patch-path (map
-                               (lambda (directory)
-                                 (string-append directory "/zynqmp/packages/patches"))
-                               %load-path)))
-    ((@ (gnu packages) search-patch) patch)))
-
-(define-syntax-rule (search-patches file-name ...)
-  "Return the list of absolute file names corresponding to each
-FILE-NAME found in %PATCH-PATH."
-  (list (search-patch file-name) ...))
-
 ;; (define* (u-boot-for-kria #:configs configs))
 
 (define u-boot-for-kr260

@@ 0,0 1,31 @@
+(define-module (zynqmp patches)
+  #:use-module (zynqmp packages firmware)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix utils)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages bootloaders)
+  #:use-module (gnu packages texinfo)
+  #:use-module (gnu packages cross-base)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages firmware)
+  #:export (my-search-patch
+            my-search-patches))
+
+(define (my-search-patch patch)
+  (parameterize ((%patch-path (map
+                               (lambda (directory)
+                                 (string-append directory "/zynqmp/packages/patches"))
+                               %load-path)))
+    ((@ (gnu packages) search-patch) patch)))
+
+(define-syntax-rule (my-search-patches file-name ...)
+  "Return the list of absolute file names corresponding to each
+FILE-NAME found in %PATCH-PATH."
+  (list (my-search-patch file-name) ...))