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

packages: Prevent inlining of 'find-best-packages-by-name'.

Browse source 
This allows 'tests/packages.scm' to mock it.

* gnu/packages.scm (find-best-packages-by-name): Set! it at the top
level to prevent it from being inline on Guile 3.
This commit is contained in:
Ludovic Courtès 2020-01-17 11:19:42 +01:00
parent df18ea6f27
commit 886a76073e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/packages.scm
View file

@ -369,6 +369,9 @@ (define (find-best-packages-by-name name version)
(string=? (package-version p) highest))
matches))))))
;; Prevent Guile 3 from inlining this procedure so we can mock it in tests.
(set! find-best-packages-by-name find-best-packages-by-name)
(define (generate-package-cache directory)
"Generate under DIRECTORY a cache of all the available packages.