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/tree.el | |
parent | 1c87082648c6d265bddaf160f858f14240db739d (diff) |
Lint maybe.el
This change had rippling implications.
Diffstat (limited to 'emacs/.emacs.d/wpc/tree.el')
-rw-r--r-- | emacs/.emacs.d/wpc/tree.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/emacs/.emacs.d/wpc/tree.el b/emacs/.emacs.d/wpc/tree.el index 9c35c8b3a33b..ddb1df7859e8 100644 --- a/emacs/.emacs.d/wpc/tree.el +++ b/emacs/.emacs.d/wpc/tree.el @@ -69,7 +69,7 @@ Depth-first traversals have the advantage of typically consuming less memory (cl-labels ((do-reduce-depth (acc f node depth) (let ((acc-new (funcall f node acc depth))) - (if (or (maybe/nil? node) + (if (or (maybe-nil? node) (tree-leaf? node)) acc-new (list/reduce @@ -98,7 +98,7 @@ Depth-first traversals have the advantage of typically consuming less memory (tree-reduce-depth '() (lambda (node acc depth) - (if (or (maybe/nil? node) + (if (or (maybe-nil? node) (tree-leaf? node)) (list/cons depth acc) acc)) @@ -139,7 +139,7 @@ generating test data. Warning this function can overflow the stack." (defun tree-leaf? (node) "Return t if NODE has no children." - (maybe/nil? (node-children node))) + (maybe-nil? (node-children node))) (defun tree-balanced? (n xs) "Return t if the tree, XS, is balanced. |