* lisp/emacs-lisp/radix-tree.el (pcase-defmacro): Improve docstring

This commit is contained in:
Stefan Monnier 2019-04-19 23:31:59 -04:00
parent 4c85e3f7e9
commit 69771b4e6a

View file

@ -196,8 +196,8 @@ If not found, return nil."
(eval-and-compile
(pcase-defmacro radix-tree-leaf (vpat)
"Build a `pcase' pattern that matches radix-tree leaf EXPVAL.
VPAT is a `pcase' pattern to extract the value."
"Pattern which matches a radix-tree leaf.
The pattern VPAT is matched against the leaf's carried value."
;; FIXME: We'd like to use a negative pattern (not consp), but pcase
;; doesn't support it. Using `atom' works but generates sub-optimal code.
`(or `(t . ,,vpat) (and (pred atom) ,vpat))))