From 2d0033697fae22dee5ccc75ed92212a9f6bd174b Mon Sep 17 00:00:00 2001
From: "Christopher R. Nelson" <christopher.nelson@languidnights.com>
Date: Sat, 13 May 2023 14:00:07 -0400
Subject: update search-patch to be public?

---
 crn/packages.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'crn/packages.scm')

diff --git a/crn/packages.scm b/crn/packages.scm
index b399b1e..99649b6 100644
--- a/crn/packages.scm
+++ b/crn/packages.scm
@@ -35,7 +35,11 @@
 (define-syntax-rule (crn/search-patches file-name ...)
   "Return the list of absolute file names corresponding to each
 FILE-NAME found in %PATCH-PATH."
-  (list (search-path (%patch-path) file-name) ...))
+  (list (search-path
+	 (cons (string-append
+		(find (lambda (path) (file-exists? (string-append path "/crn/packages.scm")) %load-path))
+		gnu:%patch-path))
+	 file-name) ...))
 
 (define %channel-root
   (find (lambda (path)
-- 
cgit v1.2.3