From 1e1d6176ebac760a396caf705acfb2feab371068 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 6 Jul 2015 19:47:35 -0700
Subject: * txr.1: Replace callf example under mapf.

---
 txr.1 | 5 ++---
 1 file 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)
-- 
cgit v1.2.3