[shepherd] 01/04: system: Adjust error case of 'prctl'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit a891c2ebcb244c84447b8942e0603a1ceca88f23
Author: Ludovic Courtès <address@hidden>
Date:   Mon Mar 5 16:06:56 2018 +0100

    system: Adjust error case of 'prctl'.
    
    * modules/shepherd/system.scm.in (prctl): Remove reference to 'name' in
    call to 'throw'.
---
 modules/shepherd/system.scm.in | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/modules/shepherd/system.scm.in b/modules/shepherd/system.scm.in
index 79fff47..7836985 100644
--- a/modules/shepherd/system.scm.in
+++ b/modules/shepherd/system.scm.in
@@ -1,5 +1,5 @@
 ;; system.scm -- Low-level operating system interface.
-;; Copyright (C) 2013, 2014, 2016 Ludovic Courtès <address@hidden>
+;; Copyright (C) 2013, 2014, 2016, 2018 Ludovic Courtès <address@hidden>
 ;; Copyright (C) 2018 Carlo Zancanaro <address@hidden>
 ;;
 ;; This file is part of the GNU Shepherd.
@@ -142,8 +142,8 @@ the returned procedure is called."
           "Perform an operation on the given process"
           (let-values (((result err) (proc process operation)))
             (if (= -1 result)
-                (throw 'system-error "prctl" "~A: ~S"
-                       (list (strerror err) name)
+                (throw 'system-error "prctl" "~A"
+                       (list (strerror err))
                        (list err))
                 result))))
       (lambda (process operation)