From db0739ff36feeb5b4e0d6d60174298b700f07fa8 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Mon, 21 Sep 2015 12:29:29 +0200
Subject: [PATCH] sequences: extra doc and test for 2all?

---
 core/sequences/sequences-docs.factor  | 8 +++++++-
 core/sequences/sequences-tests.factor | 2 ++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index b535883baf..b6d219c5e9 100644
--- a/core/sequences/sequences-docs.factor
+++ b/core/sequences/sequences-docs.factor
@@ -443,7 +443,13 @@ HELP: 3map-as
 
 HELP: 2all?
 { $values { "seq1" sequence } { "seq2" sequence } { "quot" { $quotation ( ... elt1 elt2 -- ... ? ) } } { "?" boolean } }
-{ $description "Tests the predicate pairwise against elements of " { $snippet "seq1" } " and " { $snippet "seq2" } "." } ;
+{ $description "Tests the predicate pairwise against elements of " { $snippet "seq1" } " and " { $snippet "seq2" } ". If the sequences have different lengths, then only the smallest sequences items are compared with the other." }
+{ $examples
+  { $example "USING: prettyprint sequences ;"
+    "{ 1 2 3 4 } { 2 4 6 8 } [ <= ] 2all? ."
+    "t"
+  }
+} ;
 
 HELP: find
 { $values { "seq" sequence }
diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor
index de61cebdae..486ea20919 100644
--- a/core/sequences/sequences-tests.factor
+++ b/core/sequences/sequences-tests.factor
@@ -406,3 +406,5 @@ USE: make
 {
     BV{ 11 23 35 }
 } [ { 11 22 33 } [ + ] BV{ } map-index-as ] unit-test
+
+{ t } [ { } { 99 88 } [ <= ] 2all? ] unit-test
-- 
2.34.1