me
/
guix
Archived
1
0
Fork 0
Code

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

Fixes <https://issues.guix.gnu.org/66659>.

Fixes a regression introduced in 6b0a321969. The
first attempt in e098ba2f49 to fix this issue didn't work.

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

Change-Id: I14339ad684ffe93e692e507b57dcd221d96210ef
Signed-off-by: Clément Lassieur <clement@lassieur.org>
Rostislav Svoboda 2023-10-24 16:08:10 +02:00 committed by Clément Lassieur
parent 2ff8de3657
commit 2de3004267
No known key found for this signature in database
GPG Key ID: 89F96D4808F359C7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/home/services.scm
View File

@ -435,7 +435,10 @@ activation.")))
;; after complete logout/reboot. ;; after complete logout/reboot.
(if (file-exists? xdg-runtime-dir) (if (file-exists? xdg-runtime-dir)
(when (claim-first-run flag-file-path) (when (claim-first-run flag-file-path)
(begin #$@gexps)) ;GEXPS can be empty, hence 'begin' ;; GEXPS can be empty, hence 'begin *unspecified*'. Having just
;; 'begin' without '*unspecified*' leads to
;; "Syntax error: ... sequence of zero expressions in form (begin)"
(begin *unspecified* #$@gexps))
;; TRANSLATORS: 'on-first-login' is the name of a service and ;; TRANSLATORS: 'on-first-login' is the name of a service and
;; shouldn't be translated ;; shouldn't be translated
(warning (G_ "XDG_RUNTIME_DIR doesn't exists, on-first-login script (warning (G_ "XDG_RUNTIME_DIR doesn't exists, on-first-login script