diff options
| -rw-r--r-- | guix/self.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/self.scm b/guix/self.scm index bcf04a1b28..ccff9be5b3 100644 --- a/guix/self.scm +++ b/guix/self.scm @@ -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))) |