01/07: home: services: Fix regression in generated ‘on-first-login’ script.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit e098ba2f499bbddfea50c85058e4077e39b85513
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Oct 21 10:37:53 2023 +0200

    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>
---
 gnu/home/services.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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