From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 4/8] support: Rename 'make-dmd-user-module' to 'make-user-module'. Date: Mon, 25 Jan 2016 13:50:17 +0300 Message-ID: <1453719021-13836-5-git-send-email-alezost@gmail.com> References: <1453719021-13836-1-git-send-email-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:40237) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aNejr-0006aV-Ok for guix-devel@gnu.org; Mon, 25 Jan 2016 05:51:16 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aNejq-0006x4-T1 for guix-devel@gnu.org; Mon, 25 Jan 2016 05:51:15 -0500 Received: from mail-lb0-x243.google.com ([2a00:1450:4010:c04::243]:35863) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aNejq-0006wz-Kq for guix-devel@gnu.org; Mon, 25 Jan 2016 05:51:14 -0500 Received: by mail-lb0-x243.google.com with SMTP id ad5so6173241lbc.3 for ; Mon, 25 Jan 2016 02:51:14 -0800 (PST) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id p138sm2595299lfb.22.2016.01.25.02.51.12 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Mon, 25 Jan 2016 02:51:13 -0800 (PST) In-Reply-To: <1453719021-13836-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/support.scm (make-dmd-user-module): Rename to... (make-user-module): ... this. (load-in-user-module): Adjust accordingly. --- modules/shepherd/support.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/modules/shepherd/support.scm b/modules/shepherd/support.scm index 9bfb050..562a87b 100644 --- a/modules/shepherd/support.scm +++ b/modules/shepherd/support.scm @@ -303,7 +303,7 @@ create a template configuration file if non exists." (define persistency #f) (define persistency-state-file default-persistency-state-file) -(define (make-dmd-user-module) +(define (make-user-module) "Return a new module, for use when evaluating the user's configuration, which has essential bindings pulled in." (let ((m (make-fresh-user-module))) @@ -315,7 +315,7 @@ which has essential bindings pulled in." (define (load-in-user-module file) "Load FILE in a fresh user module that has essential bindings pulled in." - (let ((user-module (make-dmd-user-module))) + (let ((user-module (make-user-module))) (save-module-excursion (lambda () (set-current-module user-module) -- 2.6.3