summary refs log tree commit diff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-10-21 10:37:53 +0200
committerLudovic Courtès <ludo@gnu.org>2023-10-21 16:00:14 +0200
commite098ba2f499bbddfea50c85058e4077e39b85513 (patch)
treef2bb12b1a9c355fc60fc34e881fe6b7a4f47aeba /gnu
parent80c8f5b57aa3699445fab29e0f75f5955e697509 (diff)
downloadguix-e098ba2f499bbddfea50c85058e4077e39b85513.tar.gz
home: services: Fix regression in generated ‘on-first-login’ script.
Fixes <https://issues.guix.gnu.org/66659>.

Fixes a regression introduced in
6b0a32196982a0a2f4dbb59d35e55833a5545ac6.

* gnu/home/services.scm (compute-on-first-login-script): Add ‘begin’
around #$@gexps.

Reported-by: Nils Landt <nils@landt.email>
Diffstat (limited to 'gnu')
-rw-r--r--gnu/home/services.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/home/services.scm b/gnu/home/services.scm
index 651c068f79..282fed74c1 100644
--- a/gnu/home/services.scm
+++ b/gnu/home/services.scm
@@ -435,7 +435,7 @@ activation.")))
          ;; after complete logout/reboot.
          (if (file-exists? xdg-runtime-dir)
              (when (claim-first-run flag-file-path)
-               #$@gexps)
+               (begin #$@gexps))            ;GEXPS can be empty, hence 'begin'
              ;; TRANSLATORS: 'on-first-login' is the name of a service and
              ;; shouldn't be translated
              (warning (G_ "XDG_RUNTIME_DIR doesn't exists, on-first-login script