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

gnu: current-guix: Delay effectful bits.

Browse source 
* gnu/packages/package-management.scm (current-guix): Delay 'repository-root'.
This commit is contained in:
Ludovic Courtès 2019-03-26 11:06:16 +01:00
parent 28d32817d8
commit 863519f660
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/package-management.scm
View file

@ -410,10 +410,10 @@ (define-public current-guix-package
(make-parameter #f))
(define-public current-guix
(let* ((repository-root (canonicalize-path
(string-append (current-source-directory)
"/../..")))
(select? (delay (or (git-predicate repository-root)
(let* ((repository-root (delay (canonicalize-path
(string-append (current-source-directory)
"/../.."))))
(select? (delay (or (git-predicate (force repository-root))
source-file?))))
(lambda ()
"Return a package representing Guix built from the current source tree.
@ -423,7 +423,7 @@ (define-public current-guix
(package
(inherit guix)
(version (string-append (package-version guix) "+"))
(source (local-file repository-root "guix-current"
(source (local-file (force repository-root) "guix-current"
#:recursive? #t
#:select? (force select?))))))))