me
/
guix
Archived
1
0
Fork 0
Code

import: print: Improve origin method name guesswork. 

Fixes <https://bugs.gnu.org/47375>.
Reported by Léo Le Bouter <lle-bout@zaclys.net>.

* guix/import/print.scm (package->code): For METHOD, use 'variable-name'
preferably, and call 'procedure-name' as a last resort.
master
Ludovic Courtès 2021-03-25 22:41:05 +01:00
parent 4ac3e010c9
commit 96aa98b6ca
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
guix/import/print.scm
View File

@ -79,7 +79,16 @@ when evaluated."
(file-name (origin-file-name source))
(patches (origin-patches source)))
`(origin
(method ,(procedure-name method))
;; Since 'procedure-name' returns the procedure name within the
;; module where it's defined, not its public name. Thus, try hard to
;; find its public name and use 'procedure-name' as a last resort.
(method ,(or (any (lambda (module)
(variable-name method module))
'((guix download)
(guix git-download)
(guix hg-download)
(guix svn-download)))
(procedure-name method)))
(uri (string-append ,@(match (factorize-uri uri version)
((? string? uri) (list uri))
(factorized factorized))))