TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source 
* guix/utils.scm (%guix-source-root-directory): New procedure.
This commit is contained in:
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 @@ (define-module (guix utils)
substitute-keyword-arguments
ensure-keyword-arguments
%guix-source-root-directory
current-source-directory
nix-system->gnu-triplet
@ -1031,6 +1032,10 @@ (define (read! bv start n)
;;; 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
;; Memoize to avoid repeated 'stat' storms from 'search-path'.
(mlambda (file)