me
/
guix
Archived
1
0
Fork 0
Code

utils: Add a %guix-source-root-directory procedure. 

* guix/utils.scm (%guix-source-root-directory): New procedure.
Maxim Cournoyer 2022-04-26 22:20:57 -04:00
parent 5bc1ede862
commit d7c4e7a0c2
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/utils.scm
View File

@ -78,6 +78,7 @@
substitute-keyword-arguments substitute-keyword-arguments
ensure-keyword-arguments ensure-keyword-arguments
%guix-source-root-directory
current-source-directory current-source-directory
nix-system->gnu-triplet nix-system->gnu-triplet
@ -1031,6 +1032,10 @@ environment variable name like \"XDG_CONFIG_HOME\"; SUFFIX is a suffix like
;;; Source location. ;;; Source location.
;;; ;;;
(define (%guix-source-root-directory)
"Return the source root directory of the Guix found in %load-path."
(dirname (absolute-dirname "guix/packages.scm")))
(define absolute-dirname (define absolute-dirname
;; Memoize to avoid repeated 'stat' storms from 'search-path'. ;; Memoize to avoid repeated 'stat' storms from 'search-path'.
(mlambda (file) (mlambda (file)