branch: externals/repology
commit dca8413b422df089e4700b3d236ad5c7c94c70f9
Author: Nicolas Goaziou <m...@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <m...@nicolasgoaziou.fr>
repology-check-freedom: Use clearer argument name
* repology-license.el (repology-check-freedom): Use object instead of
datum to make it clear the function expects a project or package object.
---
repology-license.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/repology-license.el b/repology-license.el
index 6705edf..12f5235 100644
--- a/repology-license.el
+++ b/repology-license.el
@@ -301,8 +301,8 @@ PACKAGE is a package object."
(`(,_ ,_ ,boolean) boolean)
(other (error "Wrong repository definition: %S" other))))
-(defun repology-check-freedom (datum)
- "Return t when project or package DATUM is free.
+(defun repology-check-freedom (object)
+ "Return t when project or package OBJECT is free.
A package is free when any reference repository can attest it uses only free
licenses. See `repology-license-reference-repositories' for a list of such
@@ -316,19 +316,19 @@ If the project does not contain any package from such
repositories, or if those
repositories cannot decide, return `unknown'. In any other case, return nil.
Of course, it is not a legal statement, merely an indication."
- (pcase datum
+ (pcase object
((pred repology-package-p)
- (pcase (repology--license-find-reference-repository datum)
+ (pcase (repology--license-find-reference-repository object)
('nil 'unknown)
(repository
- (let ((decision (repology--license-vote repository datum)))
+ (let ((decision (repology--license-vote repository object)))
(if (booleanp decision) decision 'unknown)))))
((pred repology-project-p)
(let ((votes 0)
(yes 0)
(reports nil)
(voters nil))
- (dolist (package (repology-project-packages datum))
+ (dolist (package (repology-project-packages object))
(pcase (repology--license-find-reference-repository package)
('nil nil)
(repository
@@ -343,10 +343,10 @@ Of course, it is not a legal statement, merely an
indication."
reports))))))))
;; Maybe display vote reports as debugging information.
(when repology-license-debug
- (repology--license-debug-display datum reports yes votes))
+ (repology--license-debug-display object reports yes votes))
;; Return value.
(repology--license-interpret-vote yes votes)))
- (_ (user-error "Wrong argument type: %S" datum))))
+ (_ (user-error "Wrong argument type: %S" object))))
(provide 'repology-license)
;;; repology-license.el ends here
