diff options
| author | Christopher R. Nelson <christopher.nelson@languidnights.com> | 2023-05-13 14:47:14 -0400 |
|---|---|---|
| committer | Christopher R. Nelson <christopher.nelson@languidnights.com> | 2023-05-13 14:47:14 -0400 |
| commit | c9899bf46b60a0b16ac27979450f4c9ba4ff7bd8 (patch) | |
| tree | 50c432e2a787e41ef797bfafd8dbd97c7734a198 | |
| parent | 4faa1433a021f83208538684b1e40c223557d484 (diff) | |
update search-patch to be public?
| -rw-r--r-- | crn/packages.scm | 22 |
1 files 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)))) |