[Emacs-diffs] fix/bug-31311-pcase-doc b870f3f 8/8: add some @group

[Thien-Thi Nguyen]

branch: fix/bug-31311-pcase-doc
commit b870f3fbb29bfd72eec2b8ee283192ff85abac1b
Author: Thien-Thi Nguyen <address@hidden>
Commit: Thien-Thi Nguyen <address@hidden>

    add some @group
---
 doc/lispref/control.texi | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/doc/lispref/control.texi b/doc/lispref/control.texi
index 66be9fd..a31f596 100644
--- a/doc/lispref/control.texi
+++ b/doc/lispref/control.texi
@@ -914,18 +914,24 @@ interpreter for a little expression language (note that 
this example
 requires lexical binding, @pxref{Lexical Binding}):
 
 @example
address@hidden
 (defun evaluate (form env)
   (pcase form
     (`(add ,x ,y)       (+ (evaluate x env)
                            (evaluate y env)))
address@hidden group
address@hidden
     (`(call ,fun ,arg)  (funcall (evaluate fun env)
                                  (evaluate arg env)))
     (`(fn ,arg ,body)   (lambda (val)
                           (evaluate body (cons (cons arg val)
                                                env))))
address@hidden group
address@hidden
     ((pred numberp)     form)
     ((pred symbolp)     (cdr (assq form env)))
     (_                  (error "Syntax error: %S" form))))
address@hidden group
 @end example
 
 @noindent