self: Generated (guix config) honors %CURRENT-SYSTEM.
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:
parent
41fa9f1815
commit
54eadc42d2
@ -771,7 +771,7 @@ Info manual."
|
||||
((_ 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 @@ Info manual."
|
||||
%guix-version
|
||||
%guix-bug-report-address
|
||||
%guix-home-page-url
|
||||
%system
|
||||
%store-directory
|
||||
%state-directory
|
||||
%store-database-directory
|
||||
@ -798,6 +799,9 @@ Info manual."
|
||||
%bzip2
|
||||
%xz))
|
||||
|
||||
(define %system
|
||||
#$(%current-system))
|
||||
|
||||
#$@(map (match-lambda
|
||||
((name . value)
|
||||
#~(define-public #$name #$value)))
|
||||
|
Loading…
Reference in New Issue
Block a user