[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[shepherd] 05/09: support: Rename 'make-dmd-user-module' to 'make-user-m

From: Alex Kost
Subject: [shepherd] 05/09: support: Rename 'make-dmd-user-module' to 'make-user-module'.
Date: Tue, 26 Jan 2016 09:40:26 +0000

alezost pushed a commit to branch master
in repository shepherd.

commit f90fadf1e39f562af6833b271430cb26528462a8
Author: Alex Kost <address@hidden>
Date:   Mon Jan 25 12:32:37 2016 +0300

    support: Rename 'make-dmd-user-module' to 'make-user-module'.
    * 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 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/shepherd/support.scm b/modules/shepherd/support.scm
index 64cd313..10d356a 100644
--- a/modules/shepherd/support.scm
+++ b/modules/shepherd/support.scm
@@ -315,7 +315,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)))
@@ -327,7 +327,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)))
      (lambda ()
        (set-current-module user-module)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]