From 886a76073e4654449f413831897ffde736a07c91 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 17 Jan 2020 11:19:42 +0100
Subject: 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.
---
gnu/packages.scm | 3 +++
1 file changed, 3 insertions(+)
(limited to 'gnu')
diff --git a/gnu/packages.scm b/gnu/packages.scm
index 143469b288..d22c992bb1 100644
--- a/gnu/packages.scm
+++ b/gnu/packages.scm
@@ -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.
--
cgit v1.2.3