1 files changed, 2 insertions, 3 deletions
diff --git a/txr.1 b/txr.1
index 22503b64..378169cd 100644
--- a/txr.1
+++ b/txr.1
@@ -23497,10 +23497,9 @@ The following equivalence holds:
 .TP* Example:
 
 .cblk
-  ;; Keep those pairs which are two of a kind
+  ;; Add the squares of 2 and 3
+  [[mapf + [dup *] [dup *]] 2 3] -> 13
 
-  (keep-if [callf eql first second] '((1 1) (2 3) (4 4) (5 6)))
-  -> ((1 1) (4 4))
 .cble
 
 .SS* Input and Output (Streams)