diff options
Diffstat (limited to 'doc/lispref')
| -rw-r--r-- | doc/lispref/control.texi | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/doc/lispref/control.texi b/doc/lispref/control.texi index 01ae94ea7dd..d2419f415bf 100644 --- a/doc/lispref/control.texi +++ b/doc/lispref/control.texi | |||
| @@ -959,8 +959,9 @@ For example, the following is invalid: | |||
| 959 | 959 | ||
| 960 | @example | 960 | @example |
| 961 | @group | 961 | @group |
| 962 | (require 'cl-lib) | ||
| 962 | (pcase (read-number "Enter an integer: ") | 963 | (pcase (read-number "Enter an integer: ") |
| 963 | ((or (and (pred evenp) | 964 | ((or (and (pred cl-evenp) |
| 964 | e-num) ; @r{bind @code{e-num} to @var{expval}} | 965 | e-num) ; @r{bind @code{e-num} to @var{expval}} |
| 965 | o-num) ; @r{bind @code{o-num} to @var{expval}} | 966 | o-num) ; @r{bind @code{o-num} to @var{expval}} |
| 966 | (list e-num o-num))) | 967 | (list e-num o-num))) |
| @@ -984,9 +985,10 @@ Reworking the above example: | |||
| 984 | 985 | ||
| 985 | @example | 986 | @example |
| 986 | @group | 987 | @group |
| 988 | (require 'cl-lib) | ||
| 987 | (pcase (read-number "Enter an integer: ") | 989 | (pcase (read-number "Enter an integer: ") |
| 988 | ((and num ; @r{line 1} | 990 | ((and num ; @r{line 1} |
| 989 | (or (and (pred evenp) ; @r{line 2} | 991 | (or (and (pred cl-evenp) ; @r{line 2} |
| 990 | (let spin 'even)) ; @r{line 3} | 992 | (let spin 'even)) ; @r{line 3} |
| 991 | (let spin 'odd))) ; @r{line 4} | 993 | (let spin 'odd))) ; @r{line 4} |
| 992 | (list spin num))) ; @r{line 5} | 994 | (list spin num))) ; @r{line 5} |