doc: mistake in example for @[...] pattern.

* txr.1: Fix use of nonexistent odd function which should be
oddp. The same example occurs in the test suite, but without
this error. Also fix indentation in this and the two related
examples above.

1 files changed, 3 insertions, 3 deletions

diff --git a/txr.1 b/txr.1
index 05112c5e..4d47bbe8 100644
--- a/txr.1
+++ b/txr.1
@@ -40643,17 +40643,17 @@ or
 
   ;; use hash table as predicate:
   (let ((h #H(() (a 1) (b 2))))
-   (when-match @[h x] 'a x))
+    (when-match @[h x] 'a x))
   -> a
 
   ;; as above, also capture hash value
   (let ((h #H(() (a 1) (b 2))))
-   (when-match @[h x y] 'a (list x y)))
+    (when-match @[h x y] 'a (list x y)))
   -> (a 1)
 
   ;; as above, also capture hash value, if odd
   (let ((h #H(() (a 1) (b 2))))
-   (when-match @[h x @(odd y)] 'a (list x y)))
+    (when-match @[h x @(oddp y)] 'a (list x y)))
   -> (a 1)
 .brev