From 19e01d79bc89115c73f2a953bd77b9a9acb9d326 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 1 Feb 2021 08:05:51 -0800 Subject: 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. --- txr.1 | 6 +++--- 1 file 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 -- cgit v1.2.3