diff options
author | William Carroll <wpcarro@gmail.com> | 2020-08-31T13·59+0100 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-08-31T13·59+0100 |
commit | a35f723d9271c081318fe463cd6fc51757d8cb0f (patch) | |
tree | ca57e41d3ec34a5b7be164793babd9f00c7d9c78 /emacs/.emacs.d/wpc/cycle.el | |
parent | 1c87082648c6d265bddaf160f858f14240db739d (diff) |
Lint maybe.el
This change had rippling implications.
Diffstat (limited to 'emacs/.emacs.d/wpc/cycle.el')
-rw-r--r-- | emacs/.emacs.d/wpc/cycle.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/emacs/.emacs.d/wpc/cycle.el b/emacs/.emacs.d/wpc/cycle.el index 9ec6ecd2fbc8..df9c49b5dc80 100644 --- a/emacs/.emacs.d/wpc/cycle.el +++ b/emacs/.emacs.d/wpc/cycle.el @@ -73,7 +73,7 @@ (defun cycle/previous-focus (cycle) "Return the previously focused entry in CYCLE." (let ((i (cycle-previous-index cycle))) - (if (maybe/some? i) + (if (maybe-some? i) (nth i (cycle-xs cycle)) nil))) @@ -84,7 +84,7 @@ This will error when previous-index is nil. This function mutates the underlying struct." (let ((i (cycle-previous-index xs))) - (if (maybe/some? i) + (if (maybe-some? i) (progn (cycle/jump i xs) (cycle/current xs)) @@ -148,7 +148,7 @@ ITEM is the first item in XS that t for `equal'." (defun cycle/focused? (xs) "Return t if cycle XS has a non-nil value for current-index." - (maybe/some? (cycle-current-index xs))) + (maybe-some? (cycle-current-index xs))) (defun cycle/append (x xs) "Add X to the left of the focused element in XS. @@ -196,7 +196,7 @@ If X is the currently focused value, after it's deleted, current-index will be (when cycle/enable-tests? (let ((xs (cycle/new 1 2 3))) - (prelude/assert (maybe/nil? (cycle/previous-focus xs))) + (prelude/assert (maybe-nil? (cycle/previous-focus xs))) (prelude/assert (= 1 (cycle/current xs))) (prelude/assert (= 2 (cycle/next xs))) (prelude/assert (= 1 (cycle/previous-focus xs))) |