diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-05-21 23:24:49 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-05-22 11:51:12 +0200 |
| commit | 60a56db0074259355a590851131aa23e1549fd8c (patch) | |
| tree | 2192007389d19a5afcba1d7a4e18537b93681326 /gnu/services/base.scm | |
| parent | ea982704430b061f263580041d4f94174d8ba5cd (diff) | |
| download | patches-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.scm | 4 |
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))))) |