me/guix
Archived
1
0
Fork 0
Code Activity

import/print: package->code: Wrap S-expression in definition.

Browse source 
* guix/import/print.scm (package->code): Return a definition, not just a
package expression.
This commit is contained in:
Ricardo Wurmus 2020-04-15 00:39:45 +02:00
parent c893432320
commit 86a3b540d0
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 44 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/import/print.scm
View file

@ -121,7 +121,8 @@ when evaluated."
(home-page (package-home-page package)) (home-page (package-home-page package))
(supported-systems (package-supported-systems package)) (supported-systems (package-supported-systems package))
(properties (package-properties package))) (properties (package-properties package)))
`(package `(define-public ,(string->symbol name)
(package
(name ,name) (name ,name)
(version ,version) (version ,version)
(source ,(source->code source version)) (source ,(source->code source version))
@ -163,4 +164,4 @@ when evaluated."
(description ,description) (description ,description)
(license ,(if (list? license) (license ,(if (list? license)
`(list ,@(map license->code license)) `(list ,@(map license->code license))
(license->code license)))))) (license->code license)))))))