From c2b3b72d64304cde2108570055963d5cf8d159f0 Mon Sep 17 00:00:00 2001 From: "Christopher R. Nelson" Date: Sat, 13 May 2023 13:34:54 -0400 Subject: update search-patch to be public? --- crn/packages.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'crn/packages.scm') diff --git a/crn/packages.scm b/crn/packages.scm index 0e28eb7..aaa92d8 100644 --- a/crn/packages.scm +++ b/crn/packages.scm @@ -25,16 +25,16 @@ search-patches %patch-path)) -(define-public (search-patch file-name) +(define (crn/search-patch file-name) "Search the patch FILE-NAME. Raise an error if not found." (or (search-path (%patch-path) file-name) (raise (formatted-message (G_ "~a: patch not found") file-name)))) -(define-syntax-rule (search-patches file-name ...) +(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-patch file-name) ...)) + (list (crn/search-patch file-name) ...)) (define %channel-root (find (lambda (path) -- cgit v1.2.3