From 8d409a3da09e4856afb0f0a5b83788121d99806a 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