use assoc-reject instead of [ ... not ] assoc-filter.

diff --git a/basis/compiler/cfg/liveness/liveness.factor b/basis/compiler/cfg/liveness/liveness.factor
index 8b57ff1834c2db5a9407422dc3a2b36c76a23e8b..33518b89d6e03ca897930034d095b0d91d5ea94c 100644 (file)
--- a/basis/compiler/cfg/liveness/liveness.factor
+++ b/basis/compiler/cfg/liveness/liveness.factor
@@ -31,7 +31,7 @@ GENERIC: visit-insn ( live-set insn -- )
 ! This would be much better if live-set was a real set
 : kill-defs ( live-set insn -- )
     defs-vregs [ ?leader ] map
-    '[ drop ?leader _ in? not ] assoc-filter! drop ; inline
+    '[ drop ?leader _ in? ] assoc-reject! drop ; inline
 
 : gen-uses ( live-set insn -- )
     uses-vregs [ swap conjoin ] with each ; inline

diff --git a/basis/compiler/cfg/representations/selection/selection.factor b/basis/compiler/cfg/representations/selection/selection.factor
index d91db52641e875bbda241d5a2c8924cd8ae73174..ba10a703057e6e0bd8d779e66faf42f14c6e2dd3 100644 (file)
--- a/basis/compiler/cfg/representations/selection/selection.factor
+++ b/basis/compiler/cfg/representations/selection/selection.factor
@@ -139,7 +139,7 @@ M: vreg-insn compute-insn-costs
 
 ! For every vreg, compute preferred representation, that minimizes costs.
 : minimize-costs ( costs -- representations )
-    [ nip assoc-empty? not ] assoc-filter
+    [ nip assoc-empty? ] assoc-reject
     [ >alist alist-min first ] assoc-map ;
 
 : compute-representations ( cfg -- )

diff --git a/basis/compiler/cfg/stacks/local/local.factor b/basis/compiler/cfg/stacks/local/local.factor
index f26bf76654b998527f368bdc1854c87502b41224..7b1abd8d841f030adbc35305ccda53d41648c3be 100644 (file)
--- a/basis/compiler/cfg/stacks/local/local.factor
+++ b/basis/compiler/cfg/stacks/local/local.factor
@@ -80,7 +80,7 @@ SYMBOLS: local-peek-set replaces ;
     H{ } clone replaces set ;
 
 : remove-redundant-replaces ( replaces -- replaces' )
-    [ [ loc>vreg ] dip = not ] assoc-filter ;
+    [ [ loc>vreg ] dip = ] assoc-reject ;
 
 : end-local-analysis ( basic-block -- )
     [

diff --git a/basis/compiler/crossref/crossref.factor b/basis/compiler/crossref/crossref.factor
index c078e7fe350600a0d7ccc3527f9ec0527da2d376..2e81f2674ad75dfdad60ceaf4a10218b4bd45726 100644 (file)
--- a/basis/compiler/crossref/crossref.factor
+++ b/basis/compiler/crossref/crossref.factor
@@ -34,7 +34,7 @@ generic-call-site-crossref [ H{ } clone ] initialize
 : outdated-conditional-usages ( set -- assocs )
     members H{ } clone '[
         conditional-dependencies-of
-        [ drop _ dependencies-satisfied? not ] assoc-filter
+        [ drop _ dependencies-satisfied? ] assoc-reject
     ] map ;
 
 : generic-call-sites-of ( word -- assoc )

diff --git a/basis/core-foundation/fsevents/fsevents.factor b/basis/core-foundation/fsevents/fsevents.factor
index ad8f5ea7adb07f41568db041f3c4756d8e57d456..d0bbf17f7aebeee1ccd752422411d2e0f236999c 100644 (file)
--- a/basis/core-foundation/fsevents/fsevents.factor
+++ b/basis/core-foundation/fsevents/fsevents.factor
@@ -170,7 +170,7 @@ SYMBOL: event-stream-callbacks
 
 [
     event-stream-callbacks
-    [ [ drop expired? not ] assoc-filter H{ } assoc-like ] change-global
+    [ [ drop expired? ] assoc-reject H{ } assoc-like ] change-global
 ] "core-foundation" add-startup-hook
 
 : add-event-source-callback ( quot -- id )

diff --git a/basis/furnace/auth/providers/couchdb/couchdb.factor b/basis/furnace/auth/providers/couchdb/couchdb.factor
index 1a58c5e434af5c2a875e23f66e5ffda8da8f5872..959e9825d64147533bf6e704797939def983b445 100644 (file)
--- a/basis/furnace/auth/providers/couchdb/couchdb.factor
+++ b/basis/furnace/auth/providers/couchdb/couchdb.factor
@@ -119,7 +119,7 @@ TUPLE: couchdb-auth-provider
     ((get-user)) ;
 
 : strip-hash ( hash1 -- hash2 )
-    [ drop first CHAR: _ = not ] assoc-filter ;
+    [ drop first CHAR: _ = ] assoc-reject ;
 
 : at-or-k ( key hash -- newkey )
     dupd at [ nip ] when* ;

diff --git a/basis/hints/hints.factor b/basis/hints/hints.factor
index 9177b81cd955bbeccb00698579fb2e224f8cb378..d1272b45d8023c4ec6076d108a0445c899467f52 100644 (file)
--- a/basis/hints/hints.factor
+++ b/basis/hints/hints.factor
@@ -26,7 +26,7 @@ M: object specializer-declaration class-of ;
 : make-specializer ( specs -- quot )
     dup length iota <reversed>
     [ (picker) 2array ] 2map
-    [ drop object eq? not ] assoc-filter
+    [ drop object eq? ] assoc-reject
     [ [ t ] ] [
         [ swap specializer-predicate append ] { } assoc>map
         [ ] [ swap [ f ] \ if 3array append [ ] like ] map-reduce

diff --git a/basis/html/templates/chloe/compiler/compiler.factor b/basis/html/templates/chloe/compiler/compiler.factor
index 74409e6d8e8d198f0d30004381726a27aa4910bf..1c7c73c90f07ce663e7581ed744878f87ce7a2be 100644 (file)
--- a/basis/html/templates/chloe/compiler/compiler.factor
+++ b/basis/html/templates/chloe/compiler/compiler.factor
@@ -10,7 +10,7 @@ IN: html.templates.chloe.compiler
     [ drop chloe-name? ] assoc-filter ;
 
 : non-chloe-attrs-only ( assoc -- assoc' )
-    [ drop chloe-name? not ] assoc-filter ;
+    [ drop chloe-name? ] assoc-reject ;
 
 : chloe-tag? ( tag -- ? )
     dup xml? [ body>> ] when

diff --git a/basis/html/templates/chloe/components/components.factor b/basis/html/templates/chloe/components/components.factor
index 3c1446b0601270a8b279c75bef946784653b9808..d3b55852d0337525245e8ba778c38dacbbb27648 100644 (file)
--- a/basis/html/templates/chloe/components/components.factor
+++ b/basis/html/templates/chloe/components/components.factor
@@ -21,7 +21,7 @@ M: singleton-class component-tag ( tag class -- )
     bi* ;
 
 : compile-component-attrs ( tag class -- )
-    [ attrs>> [ drop main>> "name" = not ] assoc-filter ] dip
+    [ attrs>> [ drop main>> "name" = ] assoc-reject ] dip
     [ all-slots swap '[ name>> _ at compile-attr ] each ]
     [ [ boa ] [code-with] ]
     bi ;

diff --git a/basis/math/floats/env/env.factor b/basis/math/floats/env/env.factor
index 318589687161a77e585321e9a1481830bba07996..d3034b2adfebdbf4ecc103af5bf9d5776d4cf078 100644 (file)
--- a/basis/math/floats/env/env.factor
+++ b/basis/math/floats/env/env.factor
@@ -55,7 +55,7 @@ HOOK: (fp-env-registers) cpu ( -- registers )
 : fp-env-register ( -- register ) (fp-env-registers) first ;
 
 :: mask> ( bits assoc -- symbols )
-    assoc [| k v | bits v mask zero? not ] assoc-filter keys ;
+    assoc [| k v | bits v mask zero? ] assoc-reject keys ;
 : >mask ( symbols assoc -- bits )
     over empty?
     [ 2drop 0 ]

diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor
index 0fd45feeadba9acf24e60c4f4b4a05adbdad2e5f..1d96a15a82eddc321db83e39c28e6446c71a48a8 100644 (file)
--- a/basis/prettyprint/backend/backend.factor
+++ b/basis/prettyprint/backend/backend.factor
@@ -160,7 +160,7 @@ M: pathname pprint*
     ] if ; inline
 
 : filter-tuple-assoc ( slot,value -- name,value )
-    [ [ initial>> ] dip = not ] assoc-filter
+    [ [ initial>> ] dip = ] assoc-reject
     [ [ name>> ] dip ] assoc-map ;
 
 : tuple>assoc ( tuple -- assoc )

diff --git a/basis/regexp/disambiguate/disambiguate.factor b/basis/regexp/disambiguate/disambiguate.factor
index 256770c4e522fd05073b78d1a77f42c29134f7d9..767e3410736d3d4a226ebf4531bfb72612f3a9fb 100644 (file)
--- a/basis/regexp/disambiguate/disambiguate.factor
+++ b/basis/regexp/disambiguate/disambiguate.factor
@@ -66,7 +66,7 @@ TUPLE: parts in out ;
         dup new-transitions '[
             [
                 _ swap '[ _ get-transitions ] assoc-map
-                [ nip empty? not ] assoc-filter 
+                [ nip empty? ] assoc-reject 
             ] preserving-epsilon
         ] assoc-map
     ] change-transitions ;

diff --git a/basis/soundex/soundex.factor b/basis/soundex/soundex.factor
index 37eaf088227452257ac002768b44823404d9b0a3..196fa7522cbc5863a9586139f3dd3891732d4d7e 100644 (file)
--- a/basis/soundex/soundex.factor
+++ b/basis/soundex/soundex.factor
@@ -11,7 +11,7 @@ TR: soundex-tr
 : remove-duplicates ( seq -- seq' )
     #! Remove _consecutive_ duplicates (unlike prune which removes
     #! all duplicates).
-    [ 2 <clumps> [ = not ] assoc-filter values ] [ first ] bi prefix ;
+    [ 2 <clumps> [ = ] assoc-reject values ] [ first ] bi prefix ;
 
 : first>upper ( seq -- seq' ) 1 head >upper ;
 : trim-first ( seq -- seq' ) dup first [ = ] curry trim-head ;

diff --git a/basis/tools/coverage/coverage.factor b/basis/tools/coverage/coverage.factor
index cf9079d16553217b01dfbcdfba452fee462e6174..d21f516355a0308f8400bc1c414fd47546eff3ca 100644 (file)
--- a/basis/tools/coverage/coverage.factor
+++ b/basis/tools/coverage/coverage.factor
@@ -81,7 +81,7 @@ M: string coverage
 
 M: word coverage ( word -- seq )
     "coverage" word-prop >alist
-    [ drop executed?>> not ] assoc-filter values ;
+    [ drop executed?>> ] assoc-reject values ;
 
 GENERIC: coverage. ( object -- )
 

diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor
index 7cd7465582bc473aec19b1a437021398ff09a78d..f4a56b8cf6c5268e58e776e4a0f0111190ba530b 100755 (executable)
--- a/basis/tools/deploy/shaker/shaker.factor
+++ b/basis/tools/deploy/shaker/shaker.factor
@@ -132,7 +132,7 @@ IN: tools.deploy.shaker
     "Stripping word properties" show
     swap '[
         [
-            [ drop _ member? not ] assoc-filter sift-values
+            [ drop _ member? ] assoc-reject sift-values
             >alist f like
         ] change-props drop
     ] each ;
@@ -255,7 +255,7 @@ IN: tools.deploy.shaker
                 dup array? [
                     [
                         2 group
-                        [ drop _ key? not ] assoc-filter
+                        [ drop _ key? ] assoc-reject
                         concat
                     ] map
                 ] when
@@ -432,7 +432,7 @@ IN: tools.deploy.shaker
         stripped-globals :> to-strip
         cleared-globals :> to-clear
         global boxes>>
-        [ drop to-strip strip-global? not ] assoc-filter!
+        [ drop to-strip strip-global? ] assoc-reject!
         [
             [
                 swap to-clear clear-global?

diff --git a/basis/tools/profiler/sampling/sampling.factor b/basis/tools/profiler/sampling/sampling.factor
index c874aeb6bff77dab7201bd22ceeb0aa79a09111f..4a6e6f7a5b1e2eaa1a9450315ed12ffa927a8c78 100644 (file)
--- a/basis/tools/profiler/sampling/sampling.factor
+++ b/basis/tools/profiler/sampling/sampling.factor
@@ -154,7 +154,7 @@ PRIVATE>
     [ total-time>> ] same? ;
 
 : trim-flat ( root-node -- root-node' )
-    dup '[ [ nip _ redundant-flat-node? not ] assoc-filter ] change-children ;
+    dup '[ [ nip _ redundant-flat-node? ] assoc-reject ] change-children ;
 
 PRIVATE>
 

diff --git a/basis/ui/tools/listener/listener-docs.factor b/basis/ui/tools/listener/listener-docs.factor
index 34650de01b8fb5446c3daa7d95ca384e5e169846..db41fc96d0cad1788cb91936196ae1394a158af9 100644 (file)
--- a/basis/ui/tools/listener/listener-docs.factor
+++ b/basis/ui/tools/listener/listener-docs.factor
@@ -53,7 +53,7 @@ ui.gadgets.editors ui.gestures ui.tools.listener ;
 ] change-commands drop multiline-editor update-gestures
 
 "interactor" interactor get-command-at [
-    [ drop T{ key-down f { C+ } "k" } = not ] assoc-filter
+    [ drop T{ key-down f { C+ } "k" } = ] assoc-reject
 ] change-commands drop interactor update-gestures"""
 }
 $nl

diff --git a/basis/unicode/data/data.factor b/basis/unicode/data/data.factor
index 1f7336495cae1574b58ee6cfbb5a1264d9523fe4..49519ac3e13755649787db52397d497917c6be59 100644 (file)
--- a/basis/unicode/data/data.factor
+++ b/basis/unicode/data/data.factor
@@ -135,7 +135,7 @@ PRIVATE>
 : process-combining ( data -- hash )
     3 swap (process-data)
     [ string>number ] assoc-map
-    [ nip zero? not ] assoc-filter
+    [ nip zero? ] assoc-reject
     >hashtable ;
 
 ! the maximum unicode char in the first 3 planes

diff --git a/basis/vocabs/cache/cache.factor b/basis/vocabs/cache/cache.factor
index 046c456331debc90b5dc6944801f289e8ae6e4d9..4a2fa11723fe9426a1729739cc8de2fff3e21532 100644 (file)
--- a/basis/vocabs/cache/cache.factor
+++ b/basis/vocabs/cache/cache.factor
@@ -10,7 +10,7 @@ IN: vocabs.cache
     [ root-cache get delete-at ]
     [
         \ vocab-file-contents "memoize" word-prop swap
-        '[ drop first vocab-name _ = not ] assoc-filter! drop
+        '[ drop first vocab-name _ = ] assoc-reject! drop
     ] bi
     \ all-vocabs-recursive reset-memoized
     \ all-authors reset-memoized

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 2d5e071a3c59048fdb993b09a457dd794d9f150e..15db70913705052b1fbc374fe5d696de97a468c1 100755 (executable)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -120,7 +120,7 @@ TUPLE: expiry-check object alien ;
     [ alien>> expired? ] [ t ] if* ;
 
 : delete-values ( value assoc -- )
-    [ rot drop = not ] with assoc-filter! drop ;
+    [ rot drop = ] with assoc-reject! drop ;
 
 PRIVATE>
 

diff --git a/core/generic/single/single.factor b/core/generic/single/single.factor
index dc8e907f73a17f4633eb46e9f69bbb09bd1b89b0..938e56bb36671c31623c40106a4050c92e94493a 100644 (file)
--- a/core/generic/single/single.factor
+++ b/core/generic/single/single.factor
@@ -82,7 +82,7 @@ C: <predicate-engine> predicate-engine
 
 ! 2. Convert methods
 : split-methods ( assoc class -- first second )
-    [ [ nip class<= not ] curry assoc-filter ]
+    [ [ nip class<= ] curry assoc-reject ]
     [ [ nip class<=     ] curry assoc-filter ] 2bi ;
 
 : convert-methods ( assoc class word -- assoc' )

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index 3238fea960f07d1c7080e5b532a2b0701917a48b..8dbc82769d5918ce13a71e3995b6dc6041919114 100644 (file)
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -205,7 +205,7 @@ PRIVATE>
 GENERIC: update ( search-path-elt -- valid? )
 
 : trim-forgotten ( qualified-vocab -- valid? )
-    [ [ nip "forgotten" word-prop not ] assoc-filter ] change-words
+    [ [ nip "forgotten" word-prop ] assoc-reject ] change-words
     words>> assoc-empty? not ;
 
 M: from update trim-forgotten ;

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 5b1def17bc0519d14dd009b6c0616199c1e06b5e..737ff3b451d648de81f906bd03a940e2fed62f6e 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -9,7 +9,7 @@ IN: assocs.extras
     [ nip ] assoc-filter ; inline
 
 : assoc-harvest ( assoc -- assoc' )
-    [ nip empty? not ] assoc-filter ; inline
+    [ nip empty? ] assoc-reject ; inline
 
 : deep-at ( assoc seq -- value/f )
     [ of ] each ; inline

diff --git a/extra/koszul/koszul.factor b/extra/koszul/koszul.factor
index 662162f5327e1a6f7be106cbfb129c8b270233d5..4776d0f47f9501fc96517978fa45d9cde29de5a4 100644 (file)
--- a/extra/koszul/koszul.factor
+++ b/extra/koszul/koszul.factor
@@ -20,7 +20,7 @@ IN: koszul
     } cond ;
 
 : canonicalize ( assoc -- assoc' )
-    [ nip zero? not ] assoc-filter ;
+    [ nip zero? ] assoc-reject ;
 
 SYMBOL: terms
 

diff --git a/extra/managed-server/managed-server.factor b/extra/managed-server/managed-server.factor
index 3d4177988eaf808830b5a14bd90207db8d890d66..1c4027402f2f7efafe2a0781a602416ebf2bfa44 100644 (file)
--- a/extra/managed-server/managed-server.factor
+++ b/extra/managed-server/managed-server.factor
@@ -32,7 +32,7 @@ M: managed-server handle-client-disconnect ;
 : client-streams ( -- assoc ) clients values ;
 : username ( -- string ) client username>> ;
 : everyone-else ( -- assoc )
-    clients [ drop username = not ] assoc-filter ;
+    clients [ drop username = ] assoc-reject ;
 : everyone-else-streams ( -- assoc ) everyone-else values ;
 
 ERROR: no-such-client username ;

diff --git a/extra/multi-methods/multi-methods.factor b/extra/multi-methods/multi-methods.factor
index a22bd6f490cd8d706312c7ea37eefeeb6d9aa69b..2909d0b9e73f112f31cf7b64e93ba348b5263a81 100644 (file)
--- a/extra/multi-methods/multi-methods.factor
+++ b/extra/multi-methods/multi-methods.factor
@@ -114,7 +114,7 @@ SYMBOL: total
 : multi-predicate ( classes -- quot )
     dup length iota <reversed>
     [ picker 2array ] 2map
-    [ drop object eq? not ] assoc-filter
+    [ drop object eq? ] assoc-reject
     [ [ t ] ] [
         [ (multi-predicate) ] { } assoc>map
         unclip [ swap [ f ] \ if 3array append [ ] like ] reduce

diff --git a/extra/tools/gc-decode/gc-decode-tests.factor b/extra/tools/gc-decode/gc-decode-tests.factor
index 556c8b277af020838d58baab2da7ba11d099d3c9..8471d11b2337371dea230fdc04f484d225365e2f 100644 (file)
--- a/extra/tools/gc-decode/gc-decode-tests.factor
+++ b/extra/tools/gc-decode/gc-decode-tests.factor
@@ -82,7 +82,7 @@ IN: tools.gc-decode.tests
 
 : base-pointer-groups-decoded ( word -- seq )
     word>gc-info base-pointer-groups [
-        [ swap 2array ] map-index [ nip -1 = not ] assoc-filter
+        [ swap 2array ] map-index [ nip -1 = ] assoc-reject
     ] map ;
 
 ! base-pointer-groups