diff --git a/README.md b/README.md index 5c47209..baea7d8 100644 --- a/README.md +++ b/README.md @@ -1480,8 +1480,8 @@ See also [`-split-when`](#-split-when-fn-list) ```el (-split-on '| '(Nil | Leaf a | Node [Tree a])) ;; => ((Nil) (Leaf a) (Node [Tree a])) -(-split-on ':endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) ;; => (("a" "b") ("c") ("d" "e")) -(-split-on ':endgroup '("a" "b" :endgroup :endgroup "d" "e")) ;; => (("a" "b") ("d" "e")) +(-split-on :endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) ;; => (("a" "b") ("c") ("d" "e")) +(-split-on :endgroup '("a" "b" :endgroup :endgroup "d" "e")) ;; => (("a" "b") ("d" "e")) ``` #### -split-when `(fn list)` diff --git a/dash.texi b/dash.texi index 1c5022b..e2d0d8c 100644 --- a/dash.texi +++ b/dash.texi @@ -2070,11 +2070,11 @@ See also @code{-split-when} (@pxref{-split-when}) @result{} ((Nil) (Leaf a) (Node [Tree a])) @end group @group -(-split-on ':endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) +(-split-on :endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) @result{} (("a" "b") ("c") ("d" "e")) @end group @group -(-split-on ':endgroup '("a" "b" :endgroup :endgroup "d" "e")) +(-split-on :endgroup '("a" "b" :endgroup :endgroup "d" "e")) @result{} (("a" "b") ("d" "e")) @end group @end example diff --git a/dev/examples.el b/dev/examples.el index 2fb511f..95cdf98 100644 --- a/dev/examples.el +++ b/dev/examples.el @@ -806,11 +806,11 @@ value rather than consuming a list to produce a single value." (defexamples -split-on (-split-on '| '(Nil | Leaf a | Node [Tree a])) => '((Nil) (Leaf a) (Node [Tree a])) - (-split-on ':endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) => '(("a" "b") ("c") ("d" "e")) - (-split-on ':endgroup '("a" "b" :endgroup :endgroup "d" "e")) => '(("a" "b") ("d" "e")) - (-split-on ':endgroup '("a" "b" :endgroup "c" :endgroup)) => '(("a" "b") ("c")) - (-split-on ':endgroup '("a" "b" :endgroup :endgroup :endgroup "d" "e")) => '(("a" "b") ("d" "e")) - (-split-on ':endgroup '(:endgroup "c" :endgroup "d" "e")) => '(("c") ("d" "e")) + (-split-on :endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) => '(("a" "b") ("c") ("d" "e")) + (-split-on :endgroup '("a" "b" :endgroup :endgroup "d" "e")) => '(("a" "b") ("d" "e")) + (-split-on :endgroup '("a" "b" :endgroup "c" :endgroup)) => '(("a" "b") ("c")) + (-split-on :endgroup '("a" "b" :endgroup :endgroup :endgroup "d" "e")) => '(("a" "b") ("d" "e")) + (-split-on :endgroup '(:endgroup "c" :endgroup "d" "e")) => '(("c") ("d" "e")) (-split-on '| '(Nil | | Node [Tree a])) => '((Nil) (Node [Tree a]))) (defexamples -split-when