From 6458d6e94623ec9ffbf9c8658bb50941e4786b4b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 26 Jan 2008 23:40:01 -0400
Subject: [PATCH] Remove word moved to core

---
 extra/combinators/lib/lib-docs.factor  | 9 ---------
 extra/combinators/lib/lib-tests.factor | 2 --
 extra/combinators/lib/lib.factor       | 2 --
 3 files changed, 13 deletions(-)
 mode change 100644 => 100755 extra/combinators/lib/lib-docs.factor
 mode change 100644 => 100755 extra/combinators/lib/lib-tests.factor

diff --git a/extra/combinators/lib/lib-docs.factor b/extra/combinators/lib/lib-docs.factor
old mode 100644
new mode 100755
index ac05160b31..02c3556742
--- a/extra/combinators/lib/lib-docs.factor
+++ b/extra/combinators/lib/lib-docs.factor
@@ -83,15 +83,6 @@ HELP: count
     "50"
 } ;
 
-HELP: all-unique?
-{ $values { "seq" sequence } { "?" "a boolean" } }
-{ $description "Tests whether a sequence contains any repeated elements." }
-{ $example
-    "USE: combinators.lib"
-    "{ 0 1 1 2 3 5 } all-unique? ."
-    "f"
-} ;
-
 HELP: &&
 { $values { "quots" "a sequence of quotations with stack effect " { $snippet "( ... -- ... ? )" } } { "?" "a boolean" } }
 { $description "Calls each quotation in turn; outputs " { $link f } " if one of the quotations output " { $link f } ", otherwise outputs " { $link t } ". As soon as a quotation outputs " { $link f } ", evaluation stops and subsequent quotations are not called." } ;
diff --git a/extra/combinators/lib/lib-tests.factor b/extra/combinators/lib/lib-tests.factor
old mode 100644
new mode 100755
index 0d76e6f50d..deeb105758
--- a/extra/combinators/lib/lib-tests.factor
+++ b/extra/combinators/lib/lib-tests.factor
@@ -7,8 +7,6 @@ IN: temporary
 [ 50 ] [ 100 [1,b] [ even? ] count ] unit-test
 [ 50 ] [ 100 [1,b] [ odd? ] count ] unit-test
 [ 328350 ] [ 100 [ sq ] sigma ] unit-test
-[ f ] [ { 0 1 1 2 3 5 } all-unique? ] unit-test
-[ t ] [ { 0 1 2 3 4 5 } all-unique? ] unit-test
 
 : infers? [ infer drop ] curry catch not ;
 
diff --git a/extra/combinators/lib/lib.factor b/extra/combinators/lib/lib.factor
index aae4c5d9ab..cbe25fccf6 100755
--- a/extra/combinators/lib/lib.factor
+++ b/extra/combinators/lib/lib.factor
@@ -98,8 +98,6 @@ MACRO: nfirst ( n -- )
 
 : count ( seq quot -- n ) [ 1 0 ? ] compose sigma ; inline
 
-: all-unique? ( seq -- ? ) [ prune ] keep [ length ] 2apply = ;
-
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 ! short circuiting words
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!