diff options
| author | Christopher R. Nelson <christopher.nelson@languidnights.com> | 2023-05-13 14:00:07 -0400 |
|---|---|---|
| committer | Christopher R. Nelson <christopher.nelson@languidnights.com> | 2023-05-13 14:00:07 -0400 |
| commit | 2d0033697fae22dee5ccc75ed92212a9f6bd174b (patch) | |
| tree | 61c9c0bbdc8ab2428423f1bf485403b8dbe2ccfe | |
| parent | e0cebd83698d7889c64209cdd83f47127bed20de (diff) | |
update search-patch to be public?
| -rw-r--r-- | crn/packages.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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) |