ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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