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

self: Generated (guix config) honors %CURRENT-SYSTEM.

Browse source 
Fixes <https://bugs.gnu.org/34468>.
Reported by Diego Nicola Barbato <dnbarbato@posteo.de>.

* guix/self.scm (%config-variables): Remove %SYSTEM.
(make-config.scm): Define '%system' to (%current-system).
This commit is contained in:
Ludovic Courtès 2019-02-16 23:51:01 +01:00
parent 41fa9f1815
commit 54eadc42d2
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/self.scm
View file

@ -771,7 +771,7 @@ (define %config-variables
((_ variable rest ...) ((_ variable rest ...)
(cons `(variable . ,variable) (cons `(variable . ,variable)
(variables rest ...)))))) (variables rest ...))))))
(variables %localstatedir %storedir %sysconfdir %system))) (variables %localstatedir %storedir %sysconfdir)))
(define* (make-config.scm #:key zlib gzip xz bzip2 (define* (make-config.scm #:key zlib gzip xz bzip2
(package-name "GNU Guix") (package-name "GNU Guix")
@ -789,6 +789,7 @@ (define defmod 'define-module)
%guix-version %guix-version
%guix-bug-report-address %guix-bug-report-address
%guix-home-page-url %guix-home-page-url
%system
%store-directory %store-directory
%state-directory %state-directory
%store-database-directory %store-database-directory
@ -798,6 +799,9 @@ (define defmod 'define-module)
%bzip2 %bzip2
%xz)) %xz))
(define %system
#$(%current-system))
#$@(map (match-lambda #$@(map (match-lambda
((name . value) ((name . value)
#~(define-public #$name #$value))) #~(define-public #$name #$value)))