02/06: services: swap: Use 'restart-on-EINTR'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 60a56db0074259355a590851131aa23e1549fd8c
Author: Ludovic Courtès <address@hidden>
Date:   Thu May 21 23:24:49 2015 +0200

    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.
---
 gnu/services/base.scm   |    4 ++--
 guix/build/syscalls.scm |    2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 697b939..d574420 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)))))
 
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 9ec7e8b..3585bf2 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -218,7 +218,7 @@ constants from <sys/mount.h>."
       (let ((ret (proc (string->pointer device)))
             (err (errno)))
         (unless (zero? ret)
-          (throw 'system-error "swapff" "~S: ~A"
+          (throw 'system-error "swapoff" "~S: ~A"
                  (list device (strerror err))
                  (list err)))))))