* 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