From b92f56bbef9a00f40eb4a7bb4ae38de56a4fc938 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 2aef370af5..3801e4ca77 100644
--- a/gnu/tests.scm
+++ b/gnu/tests.scm
@@ -256,10 +256,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