tests: install: Switch to modifying the gc-root-service-type.
Fixes <https://bugs.gnu.org/28600>. Fixes a regression introduced in 4e854b1814a9216ae7cc90aef4d82fd989a519c3. Reported by Christopher Baines <mail@cbaines.net>. * gnu/tests/install.scm (operating-system-with-gc-roots): Use 'simple-service' to extend GC-ROOT-SERVICE-TYPE instead of instantiating it.
This commit is contained in:
parent
8384499c04
commit
945a8fc240
@ -127,7 +127,11 @@
|
||||
"Return a variant of OS where ROOTS are registered as GC roots."
|
||||
(operating-system
|
||||
(inherit os)
|
||||
(services (cons (service gc-root-service-type roots)
|
||||
|
||||
;; We use this procedure for the installation OS, which already defines GC
|
||||
;; roots. Add ROOTS to those.
|
||||
(services (cons (simple-service 'extra-root
|
||||
gc-root-service-type roots)
|
||||
(operating-system-user-services os)))))
|
||||
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user