core/basis/extra: use none?.

diff --git a/basis/db/sqlite/sqlite.factor b/basis/db/sqlite/sqlite.factor
index aa71d0ac1ddfaf1df19e8faed014b8ef4d7856d6..bc849f5ee6bca3f691b1cca633060b84f90a4359 100644 (file)
--- a/basis/db/sqlite/sqlite.factor
+++ b/basis/db/sqlite/sqlite.factor
@@ -256,7 +256,7 @@ M: sqlite-db-connection persistent-table ( -- assoc )
     " interpolate>string ;
 
 : can-be-null? ( -- ? )
-    "sql-spec" get modifiers>> [ +not-null+ = ] any? not ;
+    "sql-spec" get modifiers>> [ +not-null+ = ] none? ;
 
 : delete-cascade? ( -- ? )
     "sql-spec" get modifiers>> { +on-delete+ +cascade+ } swap subseq? ;

diff --git a/basis/math/primes/erato/fast/fast.factor b/basis/math/primes/erato/fast/fast.factor
index d52981dba4f9426651db785c173804de34d485b7..ee957afa9473d22ec2e52647a40e00e3e173ddea 100644 (file)
--- a/basis/math/primes/erato/fast/fast.factor
+++ b/basis/math/primes/erato/fast/fast.factor
@@ -11,7 +11,7 @@ IN: math.primes.erato.fast
 
 CONSTANT: wheel-2-3-5-7 $[
     11 dup 210 + [a,b] [
-        { 2 3 5 7 } [ divisor? ] with any? not
+        { 2 3 5 7 } [ divisor? ] with none?
     ] B{ } filter-as differences
 ]
 

diff --git a/basis/math/primes/miller-rabin/miller-rabin.factor b/basis/math/primes/miller-rabin/miller-rabin.factor
index 94707c990d04f71d3f7ff32e1f5737ff6289c823..135073f9a8159d8f52363150a8d369ff4e33cd83 100644 (file)
--- a/basis/math/primes/miller-rabin/miller-rabin.factor
+++ b/basis/math/primes/miller-rabin/miller-rabin.factor
@@ -18,9 +18,9 @@ IN: math.primes.miller-rabin
         ] [
             r <iota> [
                 2^ s * a swap n ^mod n-1 =
-            ] any? not
+            ] none?
         ] if
-    ] any? not ;
+    ] none? ;
 
 PRIVATE>
 

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 5f58951fce7165be12a5492ff10dac3a9633e467..ea54fb2085eb950cf2d6d73fc4c1f2893b96e23c 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -425,7 +425,7 @@ M: ebnf-sequence build-locals ( code ast -- code )
     elements>> filter-hidden dup length 1 = [
         first build-locals
     ] [
-        dup [ ebnf-var? ] any? not [
+        dup [ ebnf-var? ] none? [
             drop
         ] [
             [

diff --git a/basis/xml/xml.factor b/basis/xml/xml.factor
index 8b855bd4dd91857f684da16f5c30937c17111ba0..b1e7d71429f959050e4fb645454c8b31ee95e7e9 100644 (file)
--- a/basis/xml/xml.factor
+++ b/basis/xml/xml.factor
@@ -31,7 +31,7 @@ M: prolog process
 : before-main? ( -- ? )
     xml-stack get {
         [ length 1 = ]
-        [ first second [ tag? ] any? not ]
+        [ first second [ tag? ] none? ]
     } 1&& ;
 
 M: directive process

diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor
index 0103126d6af53039ef03bfb97ae1b6ac907a0e69..8b92932adce4f6e4edf15a7f8eda75d7a99086c8 100644 (file)
--- a/core/classes/algebra/algebra.factor
+++ b/core/classes/algebra/algebra.factor
@@ -273,7 +273,7 @@ PRIVATE>
 ERROR: topological-sort-failed ;
 
 : largest-class ( seq -- n elt )
-    dup [ [ class< ] with any? not ] curry find-last
+    dup [ [ class< ] with none? ] curry find-last
     [ topological-sort-failed ] unless* ;
 
 : sort-classes ( seq -- newseq )

diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor
index abfea4300123abc63afcf3f27d14a5ecc541b23c..c1fef4287a13346af065d4bcb881c6643a0d6959 100644 (file)
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@@ -184,7 +184,7 @@ PRIVATE>
         { [ dup empty? ] [ 2drop ] }
         { [ dup [ length 4 <= ] [ [ word? ] any? ] bi or ] [ drop linear-case-quot ] }
         { [ dup contiguous-range? ] [ drop dispatch-case-quot ] }
-        { [ dup [ wrapper? ] any? not ] [ drop hash-case-quot ] }
+        { [ dup [ wrapper? ] none? ] [ drop hash-case-quot ] }
         { [ dup [ wrapper? ] all? ] [ drop [ [ wrapped>> ] dip ] assoc-map hash-case-quot ] }
         [ drop linear-case-quot ]
     } cond ;

diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index 37f487d1a6d3127c6b2b34f3da559b0e1d0607c1..dbcea5bf41a2602a484b0997fc5b29081bff6c10 100644 (file)
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -39,7 +39,7 @@ PRIVATE>
 
 : forward-reference? ( word -- ? )
     dup old-definitions get [ in? ] with any? [
-        new-definitions get [ in? ] with any? not
+        new-definitions get [ in? ] with none?
     ] [ drop f ] if ;
 
 SYMBOL: compiler-impl

diff --git a/extra/arrays/shaped/shaped.factor b/extra/arrays/shaped/shaped.factor
index 81c2a48fe2f7bef54c23e4c3369080bdf08ab506..ab19138af4c8e6862aef2f0cce3f51cc6e1e8086 100644 (file)
--- a/extra/arrays/shaped/shaped.factor
+++ b/extra/arrays/shaped/shaped.factor
@@ -5,7 +5,7 @@ grouping kernel math math.functions math.order math.vectors
 parser prettyprint.custom sequences sequences.deep ;
 IN: arrays.shaped
 
-: flat? ( array -- ? ) [ sequence? ] any? not ; inline
+: flat? ( array -- ? ) [ sequence? ] none? ; inline
 
 GENERIC: array-replace ( object -- shape )
 

diff --git a/extra/codebook/codebook.factor b/extra/codebook/codebook.factor
index 39e91b7ef98890c1e54dba363e543431d8776e79..673587aa3cc6f9693bc4092f19e196b972de2f03 100644 (file)
--- a/extra/codebook/codebook.factor
+++ b/extra/codebook/codebook.factor
@@ -45,7 +45,7 @@ TUPLE: code-file
 
 : include-file-name? ( name -- ? )
     {
-        [ path-components [ "." head? ] any? not ]
+        [ path-components [ "." head? ] none? ]
         [ link-info regular-file? ]
     } 1&& ;
 

diff --git a/extra/math/primes/solovay-strassen/solovay-strassen.factor b/extra/math/primes/solovay-strassen/solovay-strassen.factor
index ac4eb7076848f3bab65aa56023d920ee86986a1d..c0cedced686e21db4d5e3e06da6a6626799c4805 100644 (file)
--- a/extra/math/primes/solovay-strassen/solovay-strassen.factor
+++ b/extra/math/primes/solovay-strassen/solovay-strassen.factor
@@ -16,7 +16,7 @@ IN: math.primes.solovay-strassen
             a n jacobi n mod'
             a n 1 - 2 /i n ^mod = not
         ] if
-    ] any? not ;
+    ] none? ;
 
 PRIVATE>
 

diff --git a/extra/minesweeper/minesweeper.factor b/extra/minesweeper/minesweeper.factor
index 6569bab9d1838be5ba703c4522eb993cae9ae046..a105991f8b20e6ecb8affbf5c07b32af6ba00a3f 100644 (file)
--- a/extra/minesweeper/minesweeper.factor
+++ b/extra/minesweeper/minesweeper.factor
@@ -73,7 +73,7 @@ TUPLE: cell #adjacent mined? state ;
     { [ lost? ] [ won? ] } 1|| ;
 
 : new-game? ( cells -- ? )
-    [ [ state>> +clicked+ = ] any? ] any? not ;
+    [ [ state>> +clicked+ = ] any? ] none? ;
 
 DEFER: click-cell-at
 

diff --git a/extra/multi-methods/multi-methods.factor b/extra/multi-methods/multi-methods.factor
index f5637789ea22113b764d4b8151110a05baa98a50..6a362bbef156632e37311b1aa0b862f73c633752 100644 (file)
--- a/extra/multi-methods/multi-methods.factor
+++ b/extra/multi-methods/multi-methods.factor
@@ -76,7 +76,7 @@ SYMBOL: total
 ! Part II: Topologically sorting specializers
 : maximal-element ( seq quot -- n elt )
     dupd [
-        swapd [ call +lt+ = ] 2curry any? not
+        swapd [ call +lt+ = ] 2curry none?
     ] 2curry find [ "Topological sort failed" throw ] unless* ;
     inline
 

diff --git a/extra/project-euler/035/035.factor b/extra/project-euler/035/035.factor
index 2b50634f1d712e81c240847e96a8944e6eac4f53..0824151ffaecaa892413d7c3ce330d33db51c931 100644 (file)
--- a/extra/project-euler/035/035.factor
+++ b/extra/project-euler/035/035.factor
@@ -28,7 +28,7 @@ IN: project-euler.035
 
 : possible? ( seq -- ? )
     dup length 1 > [
-        [ even? ] any? not
+        [ even? ] none?
     ] [
         drop t
     ] if ;