From 782af29792dbe386b3b2e839d93507e8dffb2fc5 Mon Sep 17 00:00:00 2001
From: Christopher Baines <christopher.baines@digital.cabinet-office.gov.uk>
Date: Sat, 8 Apr 2017 14:41:06 +0100
Subject: Make test-modules a parameter

---
 gnu/tests.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/tests.scm b/gnu/tests.scm
index 8abe6c608b..b943363f2e 100644
--- a/gnu/tests.scm
+++ b/gnu/tests.scm
@@ -214,10 +214,11 @@ the system under test."
 
 (set-record-type-printer! <system-test> write-system-test)
 
-(define (test-modules)
-  "Return the list of modules that define system tests."
-  (scheme-modules (dirname (search-path %load-path "guix.scm"))
-                  "gnu/tests"))
+(define test-modules
+  ;; Return the list of modules that define system tests.
+  (make-parameter
+   (scheme-modules (dirname (search-path %load-path "guix.scm"))
+                   "gnu/tests")))
 
 (define (fold-system-tests proc seed)
   "Invoke PROC on each system test, passing it the test and the previous
-- 
cgit v1.2.3