[shepherd] 07/07: Rename 'dmd-output-port' to 'shepherd-output-port'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 28ed7e14ef66a6b7d85b7ce72c83879330605979
Author: Alex Kost <address@hidden>
Date:   Fri Jan 22 22:44:29 2016 +0300

    Rename 'dmd-output-port' to 'shepherd-output-port'.
    
    * modules/shepherd/comm.scm (make-dmd-output-port): Rename to...
    (make-shepherd-output-port): ... this.
    (dmd-output-port): Rename to...
    (shepherd-output-port): ... this.
    * modules/shepherd.scm (main): Adjust accordingly.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 modules/shepherd.scm      |    2 +-
 modules/shepherd/comm.scm |    8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/modules/shepherd.scm b/modules/shepherd.scm
index 6c0aade..9551267 100644
--- a/modules/shepherd.scm
+++ b/modules/shepherd.scm
@@ -138,7 +138,7 @@
     (start-logging logfile)
 
     ;; Send output to log and clients.
-    (set-current-output-port dmd-output-port)
+    (set-current-output-port shepherd-output-port)
 
     ;; Start the dmd service.
     (start dmd-service)
diff --git a/modules/shepherd/comm.scm b/modules/shepherd/comm.scm
index 1c086fe..0dc7faa 100644
--- a/modules/shepherd/comm.scm
+++ b/modules/shepherd/comm.scm
@@ -51,7 +51,7 @@
             start-logging
             stop-logging
             %current-client-socket
-            dmd-output-port))
+            shepherd-output-port))
 
 
 ;; Command for dmd.
@@ -188,7 +188,7 @@ on service '~a':")
 ;; We provide our own output mechanism, because we have certain
 ;; special needs; most importantly, we want to send output to herd
 ;; sometimes.
-(define (make-dmd-output-port original-output-port)
+(define (make-shepherd-output-port original-output-port)
   (make-soft-port
    (vector
 
@@ -245,5 +245,5 @@ on service '~a':")
    ;; It's an output-only port.
    "w"))
 
-(define dmd-output-port
-  (make-dmd-output-port (current-output-port)))
+(define shepherd-output-port
+  (make-shepherd-output-port (current-output-port)))