summaryrefslogtreecommitdiff
path: root/gnu/services/base.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-05-21 23:24:49 +0200
committerLudovic Courtès <ludo@gnu.org>2015-05-22 11:51:12 +0200
commit60a56db0074259355a590851131aa23e1549fd8c (patch)
tree2192007389d19a5afcba1d7a4e18537b93681326 /gnu/services/base.scm
parentea982704430b061f263580041d4f94174d8ba5cd (diff)
downloadpatches-60a56db0074259355a590851131aa23e1549fd8c.tar
patches-60a56db0074259355a590851131aa23e1549fd8c.tar.gz
services: swap: Use 'restart-on-EINTR'.
* gnu/services/base.scm (swap-service)[start, stop]: Use 'restart-on-EINTR'. * guix/build/syscalls.scm (swapoff): Fix typo in 'throw' arguments.
Diffstat (limited to 'gnu/services/base.scm')
-rw-r--r--gnu/services/base.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 697b9395c2..d5744204d9 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -851,10 +851,10 @@ gexp, to open it, and evaluate @var{close} to close it."
(requirement `(udev ,@requirement))
(documentation "Enable the given swap device.")
(start #~(lambda ()
- (swapon #$device)
+ (restart-on-EINTR (swapon #$device))
#t))
(stop #~(lambda _
- (swapoff #$device)
+ (restart-on-EINTR (swapoff #$device))
#f))
(respawn? #f)))))