[shepherd] 01/05: service: Rename 'services' variable to '%services'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 5f11269cb0ca2d2008faf9b8c72f4b52b50dca3b
Author: Alex Kost <address@hidden>
Date:   Sun Jan 24 18:33:07 2016 +0300

    service: Rename 'services' variable to '%services'.
    
    * modules/shepherd/service.scm (services): Rename to...
    (%services): ... this.
    (for-each-service, service-list, find-service, lookup-services,
    register-services, deregister-service): Adjust accordingly.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 modules/shepherd/service.scm |   18 +++++++++---------
 1 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index 64d56ef..808372c 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -806,7 +806,7 @@ given USER and/or GROUP to run COMMAND."
 ;;; Registered services.
 
 ;; All registered services.
-(define services (make-hash-table 75))
+(define %services (make-hash-table 75))
 
 ;;; Perform actions with services:
 
@@ -816,14 +816,14 @@ given USER and/or GROUP to run COMMAND."
               (and (eq? key (canonical-name (car value)))
                    (proc (car value))))
             #f ;; Unused
-            services))
+            %services))
 
 (define (service-list)
   "Return the list of services currently defined."
   (hash-fold (lambda (key services result)
                (append services result))
              '()
-             services))
+             %services))
 
 (define (find-service pred)
   "Return the first service that matches PRED, or #f if none was found."
@@ -833,13 +833,13 @@ given USER and/or GROUP to run COMMAND."
                   (and=> (find pred services)
                          return))
                 #f
-                services)
+                %services)
      #f)))
 
 ;; Lookup the services that provide NAME.  Returns a (possibly empty)
 ;; list of those.
 (define (lookup-services name)
-  (hashq-ref services name '()))
+  (hashq-ref %services name '()))
 
 (define waitpid*
   (let ((waitpid (EINTR-safe waitpid)))
@@ -931,7 +931,7 @@ otherwise by updating its state."
     (for-each (lambda (name)
                (let ((old (lookup-services name)))
                  ;; Actually add the new service now.
-                 (hashq-set! services name (cons new old))))
+                 (hashq-set! %services name (cons new old))))
              (provided-by new)))
 
   (for-each register-single-service new-services))
@@ -953,9 +953,9 @@ requested to be removed."
        (let ((old (lookup-services name)))
          (if (= 1 (length old))
              ;; Only service provides this service; remove it.
-             (hashq-remove! services name)
+             (hashq-remove! %services name)
              ;; ELSE: remove service from providing services.
-             (hashq-set! services name
+             (hashq-set! %services name
                          (remove
                           (lambda (lk-service)
                             (eq? (canonical-name service)
@@ -973,7 +973,7 @@ requested to be removed."
                        (not (eq? key 'dmd))
                        (cons key service)))
                  (_ #f)))               ; all other cases: #f.
-             services)))
+             %services)))
 
   (let ((name (string->symbol service-name)))
     (cond ((eq? name 'all)