maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Lint maybe.el

Browse source 
This change had rippling implications.
This commit is contained in:
William Carroll 2020-08-31 14:59:48 +01:00
parent 1c87082648
commit a35f723d92
12 changed files with 53 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -135,7 +135,7 @@ Returns the first occurrence of K in XS since alists support multiple entries."
"Apply F to the value stored at K in XS.
If `K' is not in `XS', this function errors. Use `alist/upsert' if you're
interested in inserting a value when a key doesn't already exist."
(if (maybe/nil? (alist/get k xs))
(if (maybe-nil? (alist/get k xs))
(error "Refusing to update: key does not exist in alist")
(alist/set k (funcall f (alist/get k xs)) xs)))
@ -183,11 +183,11 @@ Mutative variant of `alist/delete'."
(defun alist/has-key? (k xs)
"Return t if XS has a key `equal' to K."
(maybe/some? (assoc k xs)))
(maybe-some? (assoc k xs)))
(defun alist/has-value? (v xs)
"Return t if XS has a value of V."
(maybe/some? (rassoc v xs)))
(maybe-some? (rassoc v xs)))
(defun alist/count (xs)
"Return the number of entries in XS."