about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/tree.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-08-31T13·59+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-08-31T13·59+0100
commita35f723d9271c081318fe463cd6fc51757d8cb0f (patch)
treeca57e41d3ec34a5b7be164793babd9f00c7d9c78 /emacs/.emacs.d/wpc/tree.el
parent1c87082648c6d265bddaf160f858f14240db739d (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.el6
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.