[PATCH 1/4] Rename 'dmd-output-port' to 'shepherd-output-port'.

[Alex Kost]

* 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.
---
 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 9ad3d09..2104848 100644
--- a/modules/shepherd.scm
+++ b/modules/shepherd.scm
@@ -141,7 +141,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 2402e7e..b7bfc8c 100644
--- a/modules/shepherd/comm.scm
+++ b/modules/shepherd/comm.scm
@@ -50,7 +50,7 @@
             start-logging
             stop-logging
             %current-client-socket
-            dmd-output-port))
+            shepherd-output-port))
 
 
 ;; Command for dmd.
@@ -165,7 +165,7 @@ return the socket."
 ;; 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
 
@@ -222,5 +222,5 @@ return the socket."
    ;; 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)))
-- 
2.6.3