grouping-docs: fix a typo a code example

diff --git a/basis/grouping/grouping-docs.factor b/basis/grouping/grouping-docs.factor
index 3a1dc8e2ad33768c286a5d9963e7f65d1b65f6e5..4ef2f52d60d82670f830a6f7b52df32be2ae2550 100644 (file)
--- 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?