summary refs log tree commit diff
path: root/gnu/tests/base.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/tests/base.scm')
-rw-r--r--gnu/tests/base.scm27
1 files changed, 13 insertions, 14 deletions
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm
index d209066a74..4c24cf57f6 100644
--- a/gnu/tests/base.scm
+++ b/gnu/tests/base.scm
@@ -484,20 +484,19 @@ in a loop.  See <http://bugs.gnu.org/26931>.")
   (simple-operating-system
    (simple-service 'dirty-things
                    boot-service-type
-                   (with-monad %store-monad
-                     (let ((script (plain-file
-                                    "create-utf8-file.sh"
-                                    (string-append
-                                     "echo $0: dirtying /tmp...\n"
-                                     "set -e; set -x\n"
-                                     "touch /witness\n"
-                                     "exec touch /tmp/λαμβδα"))))
-                       (with-imported-modules '((guix build utils))
-                         (return #~(begin
-                                     (setenv "PATH"
-                                             #$(file-append coreutils "/bin"))
-                                     (invoke #$(file-append bash "/bin/sh")
-                                             #$script)))))))))
+                   (let ((script (plain-file
+                                  "create-utf8-file.sh"
+                                  (string-append
+                                   "echo $0: dirtying /tmp...\n"
+                                   "set -e; set -x\n"
+                                   "touch /witness\n"
+                                   "exec touch /tmp/λαμβδα"))))
+                     (with-imported-modules '((guix build utils))
+                       #~(begin
+                           (setenv "PATH"
+                                   #$(file-append coreutils "/bin"))
+                           (invoke #$(file-append bash "/bin/sh")
+                                   #$script)))))))
 
 (define (run-cleanup-test name)
   (define os