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

---
 crn/packages.scm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/crn/packages.scm b/crn/packages.scm
index 44e0065..716fca2 100644
--- a/crn/packages.scm
+++ b/crn/packages.scm
@@ -25,6 +25,17 @@
             crn/search-patches
             %patch-path))
 
+(define %channel-root
+  (srfi:find (lambda (path)
+          (file-exists? (string-append path "/crn/packages.scm")))
+        %load-path))
+
+(define %patch-path
+  (make-parameter
+   (cons
+    (string-append %channel-root "/crn/packages/patches")
+    (gnu:%patch-path))))
+
 (define (crn/search-patch file-name)
   "Search the patch FILE-NAME.  Raise an error if not found."
   ;;(search-path (%patch-path) file-name))
@@ -36,14 +47,3 @@
   "Return the list of absolute file names corresponding to each
 FILE-NAME found in %PATCH-PATH."
   (list (search-path (%patch-path) file-name) ...))
-
-(define %channel-root
-  (srfi:find (lambda (path)
-          (file-exists? (string-append path "/crn/packages.scm")))
-        %load-path))
-
-(define %patch-path
-  (make-parameter
-   (cons
-    (string-append %channel-root "/crn/packages/patches")
-    (gnu:%patch-path))))
-- 
cgit v1.2.3