diff options
| author | Christopher R. Nelson <christopher.nelson@languidnights.com> | 2023-05-13 14:16:34 -0400 |
|---|---|---|
| committer | Christopher R. Nelson <christopher.nelson@languidnights.com> | 2023-05-13 14:16:34 -0400 |
| commit | 08429cbae8816977d5e63d2dc2c989289dc367cf (patch) | |
| tree | c88d512bc05b95fb47c36fee12dabdb387feb1b7 | |
| parent | 6caed2c8effda4c13f5b3d1a769e6f228d8e7785 (diff) | |
update search-patch to be public?
| -rw-r--r-- | crn/packages.scm | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/crn/packages.scm b/crn/packages.scm index 7b88857..2001235 100644 --- a/crn/packages.scm +++ b/crn/packages.scm @@ -27,20 +27,15 @@ (define (crn/search-patch file-name) "Search the patch FILE-NAME. Raise an error if not found." - (search-path (%patch-path) file-name)) - ;; (or (search-path (%patch-path) file-name) - ;; (raise (formatted-message (G_ "~a: patch not found") - ;; file-name)))) + ;;(search-path (%patch-path) file-name)) + (or (search-path (%patch-path) file-name) + (raise (formatted-message (G_ "~a: patch not found") + 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-path - (cons (string-append - (find (lambda (path) (file-exists? (string-append path "/crn/packages.scm"))) %load-path) - "/crn/packages/patches") - gnu:%patch-path) - file-name) ...)) + (list (search-path (%patch-path) file-name) ...)) (define %channel-root (find (lambda (path) |