[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 1/4] Rename 'dmd-output-port' to 'shepherd-output-port'.
From: |
Alex Kost |
Subject: |
[PATCH 1/4] Rename 'dmd-output-port' to 'shepherd-output-port'. |
Date: |
Fri, 22 Jan 2016 22:44:29 +0300 |
* 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