From 51100fd53e3547dbec1f4a071af48369d58f5a71 Mon Sep 17 00:00:00 2001 From: Alexander Ilin Date: Fri, 23 Feb 2024 23:12:02 +0100 Subject: [PATCH] grouping-docs: fix a typo a code example --- basis/grouping/grouping-docs.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/grouping/grouping-docs.factor b/basis/grouping/grouping-docs.factor index 3a1dc8e2ad..4ef2f52d60 100644 --- a/basis/grouping/grouping-docs.factor +++ b/basis/grouping/grouping-docs.factor @@ -172,7 +172,7 @@ HELP: monotonic? "Testing if a sequence is non-decreasing:" { $example "USING: grouping math prettyprint ;" "{ 1 1 2 } [ <= ] monotonic? ." "t" } "Testing if a sequence is decreasing:" - { $example "USING: grouping math prettyprint ;" "{ 9 8 6 7 } [ < ] monotonic? ." "f" } + { $example "USING: grouping math prettyprint ;" "{ 9 8 6 7 } [ > ] monotonic? ." "f" } } ; HELP: all-equal? -- 2.34.1