From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 1/4] Rename 'dmd-output-port' to 'shepherd-output-port'. Date: Fri, 22 Jan 2016 22:44:29 +0300 Message-ID: <1453491872-6129-2-git-send-email-alezost@gmail.com> References: <1453491872-6129-1-git-send-email-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:45238) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aMhde-0004xZ-2J for guix-devel@gnu.org; Fri, 22 Jan 2016 14:44:54 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aMhdY-0003Jl-QA for guix-devel@gnu.org; Fri, 22 Jan 2016 14:44:52 -0500 Received: from mail-lf0-x241.google.com ([2a00:1450:4010:c07::241]:34428) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aMhdY-0003JZ-Gh for guix-devel@gnu.org; Fri, 22 Jan 2016 14:44:48 -0500 Received: by mail-lf0-x241.google.com with SMTP id n70so4651179lfn.1 for ; Fri, 22 Jan 2016 11:44:48 -0800 (PST) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id kv3sm1057630lbc.39.2016.01.22.11.44.46 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Fri, 22 Jan 2016 11:44:47 -0800 (PST) In-Reply-To: <1453491872-6129-1-git-send-email-alezost@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * 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