03/05: services: user-processes: Write debugging messages to the output port.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 4a4dd5d89dc498c714d0665909597cecdb202027
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jan 12 22:41:05 2015 +0100

    services: user-processes: Write debugging messages to the output port.
    
    * gnu/services/base.scm (user-processes-service): Write "sending all
      processes..." message to the current output port, not to /dev/console.
---
 gnu/services/base.scm |   10 ++--------
 1 files changed, 2 insertions(+), 8 deletions(-)

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 95edba6..402f599 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -232,13 +232,7 @@ stopped before 'kill' is called."
 
                        (define lset= (@ (srfi srfi-1) lset=))
 
-                       ;; When this happens, all the processes have been
-                       ;; killed, including 'deco', so DMD-OUTPUT-PORT and
-                       ;; thus CURRENT-OUTPUT-PORT are dangling.
-                       (call-with-output-file "/dev/console"
-                         (lambda (port)
-                           (display "sending all processes the TERM signal\n"
-                                    port)))
+                       (display "sending all processes the TERM signal\n")
 
                        (if (null? omitted-pids)
                            (begin