mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
packages: Prevent inlining of 'find-best-packages-by-name'.
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:
parent
df18ea6f27
commit
886a76073e
1 changed files with 3 additions and 0 deletions
|
@ -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.
|
||||
|
||||
|
|
Loading…
Reference in a new issue