mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Apply checkdoc fixes to set.el

Browse source 
While I don't agree with what checkdoc is advising here, I'd rather not fight
it.
This commit is contained in:
William Carroll 2020-09-01 16:27:42 +01:00
parent 75a9a156a0
commit baf08416cf
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/.emacs.d/wpc/set.el
View file

@ -65,7 +65,7 @@
(list-reduce acc f))) (list-reduce acc f)))
(defun set-intersection (a b) (defun set-intersection (a b)
"Return the set intersection between sets A and B." "Return the set intersection between A and B."
(set-reduce (set-new) (set-reduce (set-new)
(lambda (x acc) (lambda (x acc)
(if (set-contains? x b) (if (set-contains? x b)
@ -98,11 +98,11 @@
(set-xs b))) (set-xs b)))
(defun set-distinct? (a b) (defun set-distinct? (a b)
"Return t if sets A and B have no shared members." "Return t if A and B have no shared members."
(set-empty? (set-intersection a b))) (set-empty? (set-intersection a b)))
(defun set-superset? (a b) (defun set-superset? (a b)
"Return t if set A contains all of the members of set B." "Return t if A has all of the members of B."
(->> b (->> b
set-to-list set-to-list
(list-all? (lambda (x) (set-contains? x a))))) (list-all? (lambda (x) (set-contains? x a)))))