diff options
| -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)))) |