[elpa] externals/repology ba478a5 1/9: Rename `repology--license-check' to `repology--license-vote'

[Nicolas Goaziou]

branch: externals/repology
commit ba478a538d1eda33c57045196df59705509d69c2
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>

    Rename `repology--license-check' to `repology--license-vote'
    
    * repology-license.el (repology--license-vote): Renamed from
    `repology--license-check'.
    (repology-free-p): Apply change.
---
 repology-license.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/repology-license.el b/repology-license.el
index bde7ee9..2182e1c 100644
--- a/repology-license.el
+++ b/repology-license.el
@@ -290,10 +290,10 @@ Return value is a triplet from 
`repology-license-reference-repositories'."
                          (and subrepo (string-match s subrepo)))))
               repology-license-reference-repositories)))
 
-(defun repology--license-check (package repository)
-  "Check if PACKAGE is free according to REPOSITORY.
+(defun repology--license-vote (repository package)
+  "Return REPOSITORY vote concerning PACKAGE freedom.
 REPOSITORY is an element from `repology-license-reference-repositories'.
-PACKAGE is free when REPOSITORY can attest it uses only free licenses."
+PACKAGE is a package object."
   (pcase (or repository (repology--license-find-reference-repository package))
     (`(,_ ,_ ,(and (pred functionp) p))
      (seq-every-p p (repology-package-field package 'licenses)))
@@ -320,7 +320,7 @@ Of course, it is not a legal statement, merely an 
indication."
      (pcase (repology--license-find-reference-repository datum)
        ('nil 'unknown)
        (repository
-        (let ((decision (repology--license-check datum repository)))
+        (let ((decision (repology--license-vote repository datum)))
           (if (booleanp decision) decision 'unknown)))))
     ((pred repology-project-p)
      (let ((votes 0)
@@ -334,7 +334,7 @@ Of course, it is not a legal statement, merely an 
indication."
             (unless (member repository voters)
               (cl-incf votes)
               (push repository voters)  ;a repository votes only once
-              (let ((free (repology--license-check package repository)))
+              (let ((free (repology--license-vote repository package)))
                 (when (booleanp free)   ;has repository an opinion?
                   (when free (cl-incf yes))
                   (when repology-license-debug