* gnu/services/base.scm (swap-service-type): Fix it. --- gnu/services/base.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 20736eb13f..ba01f5d764 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -2225,8 +2225,10 @@ (define device-lookup (and device (begin (restart-on-EINTR (swapon device - #$(swap-space->flags-bit-mask - swap))) + #$(if (swap-space? swap) + (swap-space->flags-bit-mask + swap) + 0))) #t))))) (stop #~(lambda _ (let ((device #$device-lookup)) -- 2.33.1
Pushed as d48b404cf577cbfcd29b294e193a4db0c3e580b1 by Tobias. Sorry for this omission, I wonder how that got past my tests. Maybe `guix system vm` removes swap-devices? Best, Josselin Poiret
[-- Attachment #1: Type: text/plain, Size: 273 bytes --] Josselin Poiret via Guix-patches via 写道: > Sorry for this omission, I wonder how that got past my tests. > Maybe > `guix system vm` removes swap-devices? More: https://git.savannah.gnu.org/cgit/guix.git/tree/gnu/system/vm.scm#n647 Kind regards, T G-R [-- Attachment #2: signature.asc --] [-- Type: application/pgp-signature, Size: 247 bytes --]