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

basis/alien/libraries/finder/linux/linux.factor

@@ -20,7 +20,7 @@ CONSTANT: mach-map {
         [
             " " split1 [ "()" in? ] trim "," split
             [ [ blank? ] trim ] map
-            [ "OS ABI:" head? not ] filter
+            [ "OS ABI:" head? ] reject
         ] dip 3array
     ] map ;
 

basis/bootstrap/compiler/compiler.factor

@@ -32,7 +32,7 @@ gc
 
 : compile-unoptimized ( words -- )
     [ [ subwords ] map ] keep suffix concat
-    [ optimized? not ] filter compile ;
+    [ optimized? ] reject compile ;
 
 "debug-compiler" get [
 

basis/bootstrap/help/help.factor

@@ -15,7 +15,7 @@ IN: bootstrap.help
 
     [ dup lookup-vocab [ drop ] [ no-vocab ] if ] require-hook [
         dictionary get values
-        [ docs-loaded?>> not ] filter
+        [ docs-loaded?>> ] reject
         [ load-docs ] each
     ] with-variable ;
 

basis/byte-arrays/hex/hex.factor

@@ -8,7 +8,7 @@ ERROR: odd-length-hex-string string ;
 
 SYNTAX: HEX{
     "}" parse-tokens concat
-    [ blank? not ] filter
+    [ blank? ] reject
     dup length even? [ odd-length-hex-string ] unless
     2 <groups> [ hex> ] B{ } map-as
     suffix! ;

basis/classes/struct/struct.factor

@@ -245,7 +245,7 @@ M: struct-bit-slot-spec compute-slot-offset
     1 [ 0 >>offset type>> heap-size max ] reduce ;
 
 : struct-alignment ( slots -- align )
-    [ struct-bit-slot-spec? not ] filter
+    [ struct-bit-slot-spec? ] reject
     1 [ dup offset>> c-type-align-at max ] reduce ;
 
 PRIVATE>

basis/colors/constants/constants.factor

@@ -12,7 +12,7 @@ IN: colors.constants
     [ blank? ] trim-head H{ { CHAR: \s CHAR: - } } substitute swap ;
 
 : parse-colors ( lines -- assoc )
-    [ "!" head? not ] filter
+    [ "!" head? ] reject
     [ 11 cut [ " \t" split harvest ] dip suffix ] map
     [ parse-color ] H{ } map>assoc ;
 

basis/compiler/cfg/hats/hats.factor

@@ -26,7 +26,7 @@ IN: compiler.cfg.hats
 
 : hat-effect ( insn -- effect )
     "insn-slots" word-prop
-    [ type>> { def temp } member-eq? not ] filter [ name>> ] map
+    [ type>> { def temp } member-eq? ] reject [ name>> ] map
     { "vreg" } <effect> ;
 
 : define-hat ( insn -- )

basis/compiler/cfg/linear-scan/assignment/assignment.factor

@@ -147,5 +147,5 @@ M: insn assign-registers-in-insn drop ;
 
 : assign-registers ( cfg live-intervals -- )
     init-assignment
-    linearization-order [ kill-block?>> not ] filter
+    linearization-order [ kill-block?>> ] reject
     [ assign-registers-in-block ] each ;

basis/compiler/cfg/linear-scan/linear-scan.factor

@@ -10,7 +10,7 @@ IN: compiler.cfg.linear-scan
 
 : admissible-registers ( cfg -- regs )
     machine-registers swap frame-pointer?>> [
-        [ [ frame-reg = not ] filter ] assoc-map
+        [ [ frame-reg = ] reject ] assoc-map
     ] when ;
 
 : allocate-and-assign-registers ( cfg -- )

basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor

@@ -214,7 +214,7 @@ ERROR: bad-live-interval live-interval ;
 
 : compute-live-intervals ( cfg -- live-intervals sync-points )
     init-live-intervals
-    linearization-order <reversed> [ kill-block?>> not ] filter
+    linearization-order <reversed> [ kill-block?>> ] reject
     [ compute-live-intervals-step ] each
     live-intervals get finish-live-intervals
     sync-points get ;

basis/compiler/cfg/linearization/linearization.factor

@@ -45,7 +45,7 @@ SYMBOLS: loop-heads visited ;
     dup visited get ?adjoin [ dup , sorted-successors ] [ drop { } ] if
     [ predecessors-ready? ] filter
     [ dup loop-entry? [ find-alternate-loop-head ] when ] map
-    [ visited? not ] filter ;
+    [ visited? ] reject ;
 
 : (linearization-order) ( cfg -- bbs )
     HS{ } clone visited set

basis/compiler/cfg/parallel-copy/parallel-copy.factor

@@ -14,7 +14,7 @@ SYMBOLS: locs preds to-do ready ;
     to-do get push-all-back ;
 
 : init-ready ( bs -- )
-    locs get '[ _ key? not ] filter ready get push-all-front ;
+    locs get '[ _ key? ] reject ready get push-all-front ;
 
 : init ( mapping -- )
     <dlist> to-do set

basis/compiler/cfg/renaming/functor/functor.factor

@@ -65,19 +65,19 @@ M: ##callback-outputs rename-insn-uses
     drop ;
 
 ! Generate methods for everything else
-insn-classes get special-vreg-insns diff [ insn-def-slots empty? not ] filter [
+insn-classes get special-vreg-insns diff [ insn-def-slots empty? ] reject [
     [ \ rename-insn-defs create-method-in ]
     [ insn-def-slots [ name>> ] map DEF-QUOT slot-change-quot ] bi
     define
 ] each
 
-insn-classes get special-vreg-insns diff [ insn-use-slots empty? not ] filter [
+insn-classes get special-vreg-insns diff [ insn-use-slots empty? ] reject [
     [ \ rename-insn-uses create-method-in ]
     [ insn-use-slots [ name>> ] map USE-QUOT slot-change-quot ] bi
     define
 ] each
 
-insn-classes get [ insn-temp-slots empty? not ] filter [
+insn-classes get [ insn-temp-slots empty? ] reject [
     [ \ rename-insn-temps create-method-in ]
     [ insn-temp-slots [ name>> ] map TEMP-QUOT slot-change-quot ] bi
     define

basis/compiler/cfg/ssa/destruction/destruction.factor

@@ -115,7 +115,7 @@ M: ##copy cleanup-insn
     dup useful-copy? [ , ] [ drop ] if ;
 
 M: ##parallel-copy cleanup-insn
-    values>> [ leaders ] assoc-map [ first2 = not ] filter
+    values>> [ leaders ] assoc-map [ first2 = ] reject
     parallel-copy-rep % ;
 
 M: ##tagged>integer cleanup-insn

basis/compiler/cfg/stacks/local/local.factor

@@ -24,7 +24,7 @@ IN: compiler.cfg.stacks.local
 
 : height-state>insns ( state -- insns )
     [ second ] map { ds-loc rs-loc } [ new swap >>n ] 2map
-    [ n>> 0 = not ] filter [ ##inc new swap >>loc ] map ;
+    [ n>> 0 = ] reject [ ##inc new swap >>loc ] map ;
 
 : translate-local-loc ( loc state -- loc' )
     [ clone ] dip over >loc< 0 1 ? rot nth first - >>n ;

basis/compiler/crossref/crossref-tests.factor

@@ -5,5 +5,5 @@ IN: compiler.crossref.tests
 ! in the middle of recompiling something
 [ { } ] [
     all-words dup [ subwords ] map concat append
-    H{ } clone '[ _ dependencies-satisfied? not ] filter
+    H{ } clone '[ _ dependencies-satisfied? ] reject
 ] unit-test

basis/compiler/tree/cleanup/cleanup.factor

@@ -12,7 +12,7 @@ IN: compiler.tree.cleanup
 GENERIC: delete-node ( node -- )
 
 M: #call-recursive delete-node
-    dup label>> calls>> [ node>> eq? not ] with filter! drop ;
+    dup label>> calls>> [ node>> eq? ] with reject! drop ;
 
 M: #return-recursive delete-node
     label>> f >>return drop ;

basis/compiler/tree/propagation/transforms/transforms.factor

@@ -301,7 +301,7 @@ CONSTANT: lookup-table-at-max 256
 \ at* [ at-quot ] 1 define-partial-eval
 
 : diff-quot ( seq -- quot: ( seq' -- seq'' ) )
-    [ tester ] keep '[ members [ @ not ] filter _ set-like ] ;
+    [ tester ] keep '[ members [ @ ] reject _ set-like ] ;
 
 M\ set diff [ diff-quot ] 1 define-partial-eval
 

basis/compiler/tree/recursive/recursive.factor

@@ -73,7 +73,7 @@ SYMBOLS: not-loops recursive-nesting ;
 : not-a-loop? ( label -- ? ) not-loops get in? ;
 
 : non-tail-calls ( call-graph-node -- seq )
-    calls>> [ tail?>> not ] filter ;
+    calls>> [ tail?>> ] reject ;
 
 : visit-back-edges ( call-graph -- )
     [

basis/db/types/types.factor

@@ -33,7 +33,7 @@ SYMBOL: IGNORE
 
 : filter-ignores ( tuple specs -- specs' )
     [ <mirror> [ nip IGNORE = ] assoc-filter keys ] dip
-    [ slot-name>> swap member? not ] with filter ;
+    [ slot-name>> swap member? ] with reject ;
 
 ERROR: not-persistent class ;
 
@@ -99,13 +99,13 @@ FACTOR-BLOB NULL URL ;
     dup number? [ number>string ] when ;
 
 : remove-db-assigned-id ( specs -- obj )
-    [ +db-assigned-id+? not ] filter ;
+    [ +db-assigned-id+? ] reject ;
 
 : remove-relations ( specs -- newcolumns )
-    [ relation? not ] filter ;
+    [ relation? ] reject ;
 
 : remove-id ( specs -- obj )
-    [ primary-key>> not ] filter ;
+    [ primary-key>> ] reject ;
 
 ! SQLite Types: http://www.sqlite.org/datatype3.html
 ! NULL INTEGER REAL TEXT BLOB

basis/game/input/dinput/dinput.factor

@@ -159,7 +159,7 @@ SYMBOLS: +dinput+ +keyboard-device+ +keyboard-state+
 
 : find-and-remove-detached-devices ( -- )
     +controller-devices+ get-global keys
-    [ device-attached? not ] filter
+    [ device-attached? ] reject
     [ remove-controller ] each ;
 
 : ?device-interface ( dbt-broadcast-hdr -- ? )

basis/gobject-introspection/ffi/ffi.factor

@@ -323,7 +323,7 @@ M: array-type field-type>c-type type>c-type ;
 : def-classes ( classes -- ) [ def-class ] each ;
 
 : def-boxeds ( boxeds -- )
-    [ find-existing-boxed-type not ] filter
+    [ find-existing-boxed-type ] reject
     [ def-boxed-type ] each ;
 
 : def-records ( records -- )

basis/help/help.factor

@@ -33,7 +33,7 @@ M: predicate word-help* drop \ $predicate ;
 
 : orphan-articles ( -- seq )
     articles get keys
-    [ article-parent not ] filter ;
+    [ article-parent ] reject ;
 
 : xref-help ( -- )
     all-articles [ xref-article ] each ;

basis/help/html/html.factor

@@ -99,7 +99,7 @@ M: pathname url-of
 
 : all-vocabs-really ( -- seq )
     all-vocabs-recursive no-roots remove-redundant-prefixes
-    [ vocab-name "scratchpad" = not ] filter ;
+    [ vocab-name "scratchpad" = ] reject ;
 
 : all-topics ( -- topics )
     [

basis/help/lint/checks/checks.factor

@@ -157,7 +157,7 @@ SYMBOL: vocab-articles
             dup struct-class? [ struct-slots ] [ all-slots ] if
             [ name>> ] map
         ] [ extract-slots ] bi*
-        [ swap member? not ] with filter [
+        [ swap member? ] with reject [
             ", " join "Described $slot does not exist: " prepend
             simple-lint-error
         ] unless-empty

basis/help/lint/lint.factor

@@ -93,10 +93,10 @@ PRIVATE>
 : :lint-failures ( -- ) lint-failures get values errors. ;
 
 : unlinked-words ( vocab -- seq )
-    words all-word-help [ article-parent not ] filter ;
+    words all-word-help [ article-parent ] reject ;
 
 : linked-undocumented-words ( -- seq )
     all-words
-    [ word-help not ] filter
+    [ word-help ] reject
     [ article-parent ] filter
-    [ predicate? not ] filter ;
+    [ predicate? ] reject ;

basis/help/search/search.factor

@@ -31,7 +31,7 @@ IN: help.search
 
 MEMO: article-words ( name -- words )
     article-content [ element-value ] map " " join search-words
-    [ [ digit? ] all? not ] filter
+    [ [ digit? ] all? ] reject
     [ [ { [ letter? ] [ digit? ] } 1|| not ] trim ] map! harvest  ;
 
 : (search-articles) ( string -- seq' )

basis/help/vocabs/vocabs.factor

@@ -200,7 +200,7 @@ C: <vocab-author> vocab-author
         natural-sort
         [ [ class? ] filter describe-classes ]
         [
-            [ [ class? ] [ symbol? ] bi and not ] filter
+            [ [ class? ] [ symbol? ] bi and ] reject
             [ parsing-word? ] partition
             [ generic? ] partition
             [ macro? ] partition

basis/html/templates/chloe/chloe-tests.factor

@@ -9,7 +9,7 @@ IN: html.templates.chloe.tests
 [ ] [ reset-cache ] unit-test
 
 : run-template ( quot -- string )
-    with-string-writer [ "\r\n\t" member? not ] filter
+    with-string-writer [ "\r\n\t" member? ] reject
     "?>" split1 nip ; inline
 
 : test-template ( name -- template )
@@ -97,7 +97,7 @@ M: link-test link-href drop "http://www.apple.com/foo&bar" ;
 [ "<ul><li>1</li><li>2</li><li>3</li></ul>" ] [
     [
         "test7" test-template call-template
-    ] run-template [ blank? not ] filter
+    ] run-template [ blank? ] reject
 ] unit-test
 
 TUPLE: person first-name last-name ;
@@ -112,7 +112,7 @@ TUPLE: person first-name last-name ;
 [ "<table><tr><td>RBaxter</td><td>Unknown</td></tr><tr><td>Doug</td><td>Coleman</td></tr></table>" ] [
     [
         "test8" test-template call-template
-    ] run-template [ blank? not ] filter
+    ] run-template [ blank? ] reject
 ] unit-test
 
 [ ] [
@@ -125,7 +125,7 @@ TUPLE: person first-name last-name ;
 [ "<table><tr><td>RBaxter</td><td>Unknown</td></tr><tr><td>Doug</td><td>Coleman</td></tr></table>" ] [
     [
         "test8" test-template call-template
-    ] run-template [ blank? not ] filter
+    ] run-template [ blank? ] reject
 ] unit-test
 
 [ ] [ 1 "id" set-value ] unit-test
@@ -153,7 +153,7 @@ TUPLE: person first-name last-name ;
 [ "<table><tr><td>RBaxter</td><td>Unknown</td></tr></table>" ] [
     [
         "test11" test-template call-template
-    ] run-template [ blank? not ] filter
+    ] run-template [ blank? ] reject
 ] unit-test
 
 [ ] [

basis/inspector/inspector.factor

@@ -53,7 +53,7 @@ PRIVATE>
 M: tuple error. describe ;
 
 : vars-in-scope ( seq -- alist )
-    [ [ global eq? not ] filter [ keys ] gather ] keep
+    [ [ global eq? ] reject [ keys ] gather ] keep
     '[ dup _ assoc-stack ] H{ } map>assoc ;
 
 : .vars ( -- )

basis/io/directories/directories.factor

@@ -38,7 +38,7 @@ HOOK: (directory-entries) os ( path -- seq )
 : directory-entries ( path -- seq )
     normalize-path
     (directory-entries)
-    [ name>> { "." ".." } member? not ] filter ;
+    [ name>> { "." ".." } member? ] reject ;
 
 : directory-files ( path -- seq )
     directory-entries [ name>> ] map! ;

basis/io/servers/servers.factor

@@ -243,7 +243,7 @@ PRIVATE>
     server-addrs [ secure? ] filter random ;
 
 : insecure-addr ( -- addrspec )
-    server-addrs [ secure? not ] filter random ;
+    server-addrs [ secure? ] reject random ;
     
 : server. ( threaded-server -- )
     [ [ "=== " write name>> ] [ ] bi write-object nl ]

basis/io/sockets/icmp/icmp-tests.factor

@@ -6,5 +6,5 @@ IN: io.sockets.icmp.tests
 
 [ { } ] [
     "localhost" <icmp> resolve-host
-    [ [ icmp4? ] [ icmp6? ] bi or not ] filter
+    [ [ icmp4? ] [ icmp6? ] bi or ] reject
 ] unit-test

basis/math/matrices/elimination/elimination.factor

@@ -70,7 +70,7 @@ SYMBOL: matrix
     [ 0 0 (echelon) ] with-matrix ;
 
 : nonzero-rows ( matrix -- matrix' )
-    [ [ zero? ] all? not ] filter ;
+    [ [ zero? ] all? ] reject ;
 
 : null/rank ( matrix -- null rank )
     echelon dup length swap nonzero-rows length [ - ] keep ;

basis/math/vectors/simd/simd-tests.factor

@@ -183,7 +183,7 @@ TUPLE: simd-test-failure
 ] unit-test
 
 [ { } ] [
-    simd-classes [ '[ _ new ] compile-call [ zero? ] all? not ] filter
+    simd-classes [ '[ _ new ] compile-call [ zero? ] all? ] reject
 ] unit-test
 
 "== Checking -with constructors" print

basis/mime/types/types.factor

@@ -7,7 +7,7 @@ IN: mime.types
 
 MEMO: mime-db ( -- seq )
     "vocab:mime/types/mime.types" ascii file-lines
-    [ "#" head? not ] filter [ " \t" split harvest ] map harvest ;
+    [ "#" head? ] reject [ " \t" split harvest ] map harvest ;
 
 : nonstandard-mime-types ( -- assoc )
     H{

basis/opengl/shaders/shaders.factor

@@ -109,7 +109,7 @@ PREDICATE: fragment-shader < gl-shader (fragment-shader?) ;
     dup gl-program-shaders-length 2 *
     0 int <ref>
     over uint <c-array>
-    [ glGetAttachedShaders ] keep [ zero? not ] filter ;
+    [ glGetAttachedShaders ] keep [ zero? ] reject ;
 
 : delete-gl-program-only ( program -- )
     glDeleteProgram ; inline

basis/peg/ebnf/ebnf.factor

@@ -97,7 +97,7 @@ C: <ebnf> ebnf
 
 : filter-hidden ( seq -- seq )
     #! Remove elements that produce no AST from sequence
-    [ ebnf-ensure-not? not ] filter [ ebnf-ensure? not ] filter ;
+    [ ebnf-ensure-not? ] reject [ ebnf-ensure? not ] filter ;
 
 : syntax ( string -- parser )
     #! Parses the string, ignoring white space, and

basis/porter-stemmer/porter-stemmer-tests.factor

@@ -60,5 +60,5 @@ io.files io.encodings.utf8 ;
     "vocab:porter-stemmer/test/voc.txt" utf8 file-lines
     [ stem ] map
     "vocab:porter-stemmer/test/output.txt" utf8 file-lines
-    [ 2array ] 2map [ first2 = not ] filter
+    [ 2array ] 2map [ first2 = ] reject
 ] unit-test

basis/prettyprint/sections/sections.factor

@@ -191,7 +191,7 @@ M: block section-fits? ( section -- ? )
 
 : pprint-sections ( block advancer -- )
     [
-        sections>> [ line-break? not ] filter
+        sections>> [ line-break? ] reject
         unclip-slice pprint-section
     ] dip
     [ [ pprint-section ] bi ] curry each ; inline

basis/regexp/classes/classes.factor

@@ -217,7 +217,7 @@ TUPLE: class-partition integers not-integers simples not-simples and or other ;
     dup
     [ simples>> ] [ not-simples>> ] [ and>> ] tri
     3append or-class boa
-    '[ [ _ class-member? not ] filter ] change-integers ;
+    '[ [ _ class-member? ] reject ] change-integers ;
 
 : answer-ands ( partition -- partition' )
     dup [ integers>> ] [ not-simples>> ] [ simples>> ] tri 3append

basis/regexp/dfa/dfa.factor

@@ -40,7 +40,7 @@ IN: regexp.dfa
 : find-transitions ( dfa-state nfa -- next-dfa-state )
     transitions>>
     '[ _ at keys [ condition-states ] map concat ] gather
-    [ tagged-epsilon? not ] filter ;
+    [ tagged-epsilon? ] reject ;
 
 : add-todo-state ( state visited-states new-states -- )
     2over ?adjoin [ nip push ] [ 3drop ] if ;

basis/regexp/disambiguate/disambiguate.factor

@@ -51,7 +51,7 @@ TUPLE: parts in out ;
 
 : new-transitions ( transitions -- assoc ) ! assoc is class, partition
     values [ keys ] gather
-    [ tagged-epsilon? not ] filter
+    [ tagged-epsilon? ] reject
     class-partitions ;
 
 : get-transitions ( partition state-transitions -- next-states )

basis/regexp/parser/parser.factor

@@ -22,7 +22,7 @@ ERROR: bad-class name ;
 
 : simple ( str -- simple )
     ! Alternatively, first collation key level?
-    >case-fold [ " \t_" member? not ] filter ;
+    >case-fold [ " \t_" member? ] reject ;
 
 : simple-table ( seq -- table )
     [ [ simple ] keep ] H{ } map>assoc ;

basis/see/see.factor

@@ -241,7 +241,7 @@ M: word see*
 
 : seeing-implementors ( class -- seq )
     dup implementors
-    [ [ reader? ] [ writer? ] bi or not ] filter
+    [ [ reader? ] [ writer? ] bi or ] reject
     [ lookup-method ] with map
     natural-sort ;
 

basis/stack-checker/stack-checker-tests.factor

@@ -409,9 +409,9 @@ DEFER: eee'
 ! Make sure all primitives are covered
 [ { } ] [
     all-words [ primitive? ] filter
-    [ "default-output-classes" word-prop not ] filter
+    [ "default-output-classes" word-prop ] reject
-    [ "special" word-prop not ] filter
+    [ "special" word-prop ] reject
-    [ "shuffle" word-prop not ] filter
+    [ "shuffle" word-prop ] reject
 ] unit-test
 
 { 1 0 } [ [ drop       ] each ] must-infer-as

basis/tools/crossref/crossref.factor

@@ -62,7 +62,7 @@ M: object uses drop f ;
 : defs-to-crossref ( -- seq )
     [
         all-words
-        [ [ generic? not ] filter ]
+        [ [ generic? ] reject ]
         [ [ subwords ] map concat ] bi
 
         all-articles [ >link ] map
@@ -95,7 +95,7 @@ PRIVATE>
 
 GENERIC: smart-usage ( defspec -- seq )
 
-M: object smart-usage usage [ irrelevant? not ] filter ;
+M: object smart-usage usage [ irrelevant? ] reject ;
 
 M: method smart-usage "method-generic" word-prop smart-usage ;
 
@@ -115,7 +115,7 @@ M: f smart-usage drop \ f smart-usage ;
     [ "No usages." print ] [ sorted-definitions. ] if-empty ;
 
 : vocab-xref ( vocab quot: ( defspec -- seq ) -- vocabs )
-    [ [ vocab-name ] [ words [ generic? not ] filter ] bi ] dip map
+    [ [ vocab-name ] [ words [ generic? ] reject ] bi ] dip map
     [
         [ [ word? ] [ generic? not ] bi and ] filter [
             dup method?

basis/tools/deploy/shaker/shaker.factor

@@ -125,7 +125,7 @@ IN: tools.deploy.shaker
 
 : strip-word-defs ( words -- )
     "Stripping symbolic word definitions" show
-    [ "no-def-strip" word-prop not ] filter
+    [ "no-def-strip" word-prop ] reject
     [ [ ] >>def drop ] each ;
 
 : strip-word-props ( stripped-props words -- )

basis/tools/profiler/sampling/sampling.factor

@@ -95,7 +95,7 @@ CONSTANT: zero-counts { 0 0 0 0 0 }
 
 :: (collect-subtrees) ( samples max-depth depth child-quot: ( samples -- child ) -- children )
     max-depth depth > [
-        samples [ sample-callstack leaf-callstack? not ] filter
+        samples [ sample-callstack leaf-callstack? ] reject
         [ f ] [ child-quot call ] if-empty
     ] [ f ] if ; inline
 
@@ -144,7 +144,7 @@ PRIVATE>
 :: collect-flat ( samples -- flat )
     IH{ } clone :> per-word-samples
     samples [| sample |
-        sample sample-callstack members [ ignore-word? not ] filter [
+        sample sample-callstack members [ ignore-word? ] reject [
             per-word-samples sample counts+at
         ] each
     ] each

basis/tools/scaffold/scaffold.factor

@@ -216,7 +216,7 @@ M: object add-using ( object -- )
 
 : interesting-words ( vocab -- array )
     words
-    [ { [ "help" word-prop ] [ predicate? ] } 1|| not ] filter
+    [ { [ "help" word-prop ] [ predicate? ] } 1|| ] reject
     natural-sort ;
 
 : interesting-words. ( vocab -- )

basis/ui/baseline-alignment/baseline-alignment.factor

@@ -57,7 +57,7 @@ TUPLE: gadget-metrics height ascent descent cap-height ;
     [ descent>> ] map ?supremum ;
 
 : max-graphics-height ( seq -- y )
-    [ ascent>> not ] filter [ height>> ] map ?supremum 0 or ;
+    [ ascent>> ] reject [ height>> ] map ?supremum 0 or ;
 
 :: combine-metrics ( graphics-height ascent descent cap-height -- ascent' descent' )
     ascent [

basis/ui/ui.factor

@@ -29,7 +29,7 @@ SYMBOL: windows
     [ [ length 1 - dup 1 - ] keep exchange ] [ drop ] if ;
 
 : unregister-window ( handle -- )
-    windows [ [ first = not ] with filter ] change-global ;
+    windows [ [ first = ] with reject ] change-global ;
 
 : raised-window ( world -- )
     windows get-global

basis/unicode/breaks/breaks-tests.factor

@@ -30,7 +30,7 @@ IN: unicode.breaks.tests
         [
             "×" split
             [ [ blank? ] trim hex> ] map
-            [ { f 0 } member? not ] filter
+            [ { f 0 } member? ] reject
             >string
         ] map
         harvest

basis/unicode/collation/collation.factor

@@ -97,8 +97,8 @@ ducet get-global insert-helpers
     ] { } map-as concat ;
 
 : append-weights ( weights quot -- )
-    [ [ ignorable?>> not ] filter ] dip
+    [ [ ignorable?>> ] reject ] dip
-    map [ zero? not ] filter % 0 , ; inline
+    map [ zero? ] reject % 0 , ; inline
 
 : variable-weight ( weight -- )
     dup ignorable?>> [ primary>> ] [ drop 0xFFFF ] if , ;

basis/unicode/data/data.factor

@@ -114,7 +114,7 @@ PRIVATE>
 : exclusions ( -- set )
     exclusions-file utf8 file-lines
     [ "#" split1 drop [ blank? ] trim-tail hex> ] map
-    [ 0 = not ] filter ;
+    [ 0 = ] reject ;
 
 : remove-exclusions ( alist -- alist )
     exclusions unique assoc-diff ;
@@ -129,7 +129,7 @@ PRIVATE>
 : process-compatibility ( data -- hash )
     (process-decomposed)
     [ dup first* [ first2 rest 2array ] unless ] map
-    [ second empty? not ] filter
+    [ second empty? ] reject
     >hashtable chain-decomposed ;
 
 : process-combining ( data -- hash )
@@ -209,7 +209,7 @@ load-data {
 } cleave
 
 combine-map keys [ 2ch> nip ] map
-[ combining-class not ] filter
+[ combining-class ] reject
 [ 0 swap class-map set-at ] each
 
 load-special-casing special-casing swap assoc-union! drop

basis/uuid/uuid.factor

@@ -48,7 +48,7 @@ IN: uuid
     [ CHAR: - 8 ] dip insert-nth ;
 
 : string>uuid ( string -- n )
-    [ CHAR: - = not ] filter hex> ;
+    [ CHAR: - = ] reject hex> ;
 
 PRIVATE>
 

basis/vocabs/hierarchy/hierarchy.factor

@@ -55,7 +55,7 @@ ERROR: vocab-root-required root ;
     [ ensure-vocab-root ] dip
     [ ((child-vocabs-recursive)) ] { } make ;
 
-: no-rooted ( seq -- seq' ) [ find-vocab-root not ] filter ;
+: no-rooted ( seq -- seq' ) [ find-vocab-root ] reject ;
 
 : one-level-only? ( name prefix -- ? )
     ?head [ "." split1 nip not ] [ drop f ] if ;
@@ -70,7 +70,7 @@ ERROR: vocab-root-required root ;
 
 PRIVATE>
 
-: no-prefixes ( seq -- seq' ) [ vocab-prefix? not ] filter ;
+: no-prefixes ( seq -- seq' ) [ vocab-prefix? ] reject ;
 
 : convert-prefixes ( seq -- seq' )
     [ dup vocab-prefix? [ name>> <vocab-link> ] when ] map ;
@@ -80,7 +80,7 @@ PRIVATE>
     [ vocab-prefix? ] partition
     [
         [ vocab-name ] map fast-set
-        '[ name>> _ in? not ] filter
+        '[ name>> _ in? ] reject
         convert-prefixes
     ] keep
     append ;
@@ -136,7 +136,7 @@ PRIVATE>
 
 : (load-from-root) ( root prefix -- failures )
     vocabs-in-root/prefix
-    [ don't-load? not ] filter no-prefixes
+    [ don't-load? ] reject no-prefixes
     require-all ;
 
 : load-from-root ( root prefix -- )

basis/vocabs/metadata/metadata.factor

@@ -108,13 +108,13 @@ ERROR: bad-platform name ;
     } 1|| ;
 
 : filter-don't-load ( vocabs -- vocabs' )
-    [ vocab-name don't-load? not ] filter ;
+    [ vocab-name don't-load? ] reject ;
 
 : don't-test? ( vocab -- ? )
     vocab-tags "not tested" swap member? ;
 
 : filter-don't-test ( vocabs -- vocabs' )
-    [ don't-test? not ] filter ;
+    [ don't-test? ] reject ;
 
 TUPLE: unsupported-platform vocab requires ;
 

basis/vocabs/prettyprint/prettyprint.factor

@@ -19,7 +19,7 @@ IN: vocabs.prettyprint
     [ vocab-name ] sort-with ;
 
 : pprint-using ( seq -- )
-    [ "syntax" lookup-vocab = not ] filter
+    [ "syntax" lookup-vocab = ] reject
     sort-vocabs [
         \ USING: pprint-word
         [ pprint-vocab ] each
@@ -65,7 +65,7 @@ M: rename pprint-qualified ( rename -- )
     ] with-pprint ;
 
 : filter-interesting ( seq -- seq' )
-    [ [ vocab? ] [ extra-words? ] bi or not ] filter ;
+    [ [ vocab? ] [ extra-words? ] bi or ] reject ;
 
 PRIVATE>
 

basis/vocabs/refresh/refresh.factor

@@ -54,7 +54,7 @@ SYMBOL: modified-docs
         V{ } clone modified-sources set
         V{ } clone modified-docs set
 
-        child-vocabs [ ".private" tail? not ] filter [
+        child-vocabs [ ".private" tail? ] reject [
             [
                 [
                     [ modified-sources ]

basis/windows/messages/messages.factor

@@ -7,7 +7,7 @@ IN: windows.messages
 SYMBOL: windows-messages
 
 "windows.messages" words
-[ name>> "windows-message" head? not ] filter
+[ name>> "windows-message" head? ] reject
 [ dup execute swap ] { } map>assoc
 windows-messages set-global
 

basis/xml/tests/test.factor

@@ -57,7 +57,7 @@ SYMBOL: xml-file
 [ ] [ "<?xml version='1.0'?><!-- declarations for <head> & <body> --><foo/>" string>xml drop ] unit-test
 
 : first-thing ( seq -- elt )
-    [ "" = not ] filter first ;
+    [ "" = ] reject first ;
 
 [ T{ element-decl f "br" "EMPTY" } ] [ "<!ELEMENT br EMPTY>" string>dtd directives>> first-thing ] unit-test
 [ T{ element-decl f "p" "(#PCDATA|emph)*" } ] [ "<!ELEMENT p (#PCDATA|emph)*>" string>dtd directives>> first-thing ] unit-test

basis/xml/writer/writer.factor

@@ -34,7 +34,7 @@ SYMBOL: indentation
 : ?filter-children ( children -- no-whitespace )
     xml-pprint? get [
         [ dup string? [ [ blank? ] trim ] when ] map
-        [ "" = not ] filter
+        [ "" = ] reject
     ] when ;
 
 PRIVATE>

basis/xmode/keyword-map/keyword-map.factor

@@ -32,7 +32,7 @@ M: keyword-map >alist
     assoc>> >alist ;
 
 : (keyword-map-no-word-sep) ( assoc -- str )
-    keys combine [ alpha? not ] filter natural-sort ;
+    keys combine [ alpha? ] reject natural-sort ;
 
 : keyword-map-no-word-sep* ( keyword-map -- str )
     dup no-word-sep>> [ ] [

core/classes/algebra/algebra.factor

@@ -19,7 +19,7 @@ ERROR: not-classoids sequence ;
 
 : check-classoids ( members -- members )
     dup [ classoid? ] all?
-    [ [ classoid? not ] filter not-classoids ] unless ;
+    [ [ classoid? ] reject not-classoids ] unless ;
 
 ERROR: not-a-classoid object ;
 
@@ -28,7 +28,7 @@ ERROR: not-a-classoid object ;
 
 : <anonymous-union> ( members -- classoid )
     check-classoids
-    [ null eq? not ] filter set-members
+    [ null eq? ] reject set-members
     dup length 1 = [ first ] [ sort-classes f like anonymous-union boa ] if ;
 
 M: anonymous-union rank-class drop 6 ;

core/hash-sets/hash-sets.factor

@@ -200,7 +200,7 @@ M: f fast-set drop 0 <hash-set> ;
 M: sequence fast-set >hash-set ;
 
 M: sequence duplicates
-    dup length <hash-set> [ ?adjoin not ] curry filter ;
+    dup length <hash-set> [ ?adjoin ] curry reject ;
 
 M: sequence all-unique?
     dup length <hash-set> [ ?adjoin ] curry all? ;

core/hashtables/hashtables-tests.factor

@@ -8,7 +8,7 @@ IN: hashtables.tests
 [ ] [ 1000 iota [ dup sq ] H{ } map>assoc "testhash" set ] unit-test
 
 [ V{ } ]
-[ 1000 iota [ dup sq swap "testhash" get at = not ] filter ]
+[ 1000 iota [ dup sq swap "testhash" get at = ] reject ]
 unit-test
 
 [ t ]

core/io/encodings/utf8/utf8-tests.factor

@@ -26,7 +26,7 @@ IN: io.encodings.utf8.tests
 
 [ 3 ] [ 2 "lápis" >utf8-index ] unit-test
 
-[ V{ } ] [ 100000 iota [ [ code-point-length ] [ 1string utf8 encode length ] bi = not ] filter ] unit-test
+[ V{ } ] [ 100000 iota [ [ code-point-length ] [ 1string utf8 encode length ] bi = ] reject ] unit-test
 
 [ { CHAR: replacement-character } ] [ { 0b110,00000 0b10,000000 } decode-utf8-w/stream ] unit-test
 [ { CHAR: replacement-character } ] [ { 0b110,00001 0b10,111111 } decode-utf8-w/stream ] unit-test

core/parser/parser.factor

@@ -32,7 +32,7 @@ SYMBOL: auto-use?
     ] [ create-in ] if ;
 
 : ignore-forwards ( seq -- seq' )
-    [ forward-reference? not ] filter ;
+    [ forward-reference? ] reject ;
 
 : private? ( word -- ? ) vocabulary>> ".private" tail? ;
 

core/source-files/source-files-tests.factor

@@ -2,4 +2,4 @@ IN: source-files.tests
 USING: source-files tools.test assocs sequences strings
 namespaces kernel ;
 
-[ { } ] [ source-files get keys [ string? not ] filter ] unit-test
+[ { } ] [ source-files get keys [ string? ] reject ] unit-test

extra/alien/fortran/fortran.factor

@@ -442,11 +442,11 @@ MACRO: fortran-invoke ( return library function parameters -- )
 
 SYNTAX: SUBROUTINE: 
     f current-library get scan-token ";" parse-tokens
-    [ "()" subseq? not ] filter define-fortran-function ;
+    [ "()" subseq? ] reject define-fortran-function ;
 
 SYNTAX: FUNCTION:
     scan-token current-library get scan-token ";" parse-tokens
-    [ "()" subseq? not ] filter define-fortran-function ;
+    [ "()" subseq? ] reject define-fortran-function ;
 
 SYNTAX: LIBRARY:
     scan-token

extra/elf/nm/nm.factor

@@ -19,6 +19,6 @@ IN: elf.nm
 : elf-nm ( path -- )
     [
         sections dup ".symtab" find-section
-        symbols [ name>> empty? not ] filter
+        symbols [ name>> empty? ] reject
         [ print-symbol ] with each
     ] with-mapped-elf ;

extra/geo-ip/geo-ip.factor

@@ -33,7 +33,7 @@ TUPLE: ip-entry from to registry assigned city cntry country ;
 
 MEMO: ip-db ( -- seq )
     download-db ascii file-lines
-    [ "#" head? not ] filter "\n" join string>csv
+    [ "#" head? ] reject "\n" join string>csv
     [ parse-ip-entry ] map ;
 
 : filter-overlaps ( alist -- alist' )

extra/gml/parser/parser.factor

@@ -120,7 +120,7 @@ Token = Spaces
      ExecName |
      PathName)
 
-Tokens = Token* => [[ [ comment? not ] filter ]]
+Tokens = Token* => [[ [ comment? ] reject ]]
 
 Program = Tokens Spaces !(.) => [[ parse-proc ]]
 

extra/gpu/render/render.factor

@@ -229,7 +229,7 @@ DEFER: uniform-texture-accessors
     dup length 1 = [ first swap prefix ] [ [ ] 2sequence ] if ;
 
 : uniform-tuple-texture-accessors ( uniform-type -- accessors )
-    all-uniform-tuple-slots [ uniform-type>> uniform-type-texture-units zero? not ] filter
+    all-uniform-tuple-slots [ uniform-type>> uniform-type-texture-units zero? ] reject
     [ uniform-slot-texture-accessor ] map ;
 
 : uniform-texture-accessors ( uniform-type dim -- accessors )
@@ -529,7 +529,7 @@ DEFER: [bind-uniform-tuple]
     } 3cleave ;
 
 : true-subclasses ( class -- seq )
-    [ subclasses ] keep [ = not ] curry filter ;
+    [ subclasses ] keep [ = ] curry reject ;
 
 PRIVATE>
 

extra/hashcash/hashcash.factor

@@ -26,7 +26,7 @@ IN: hashcash
 ! Random salt is formed by ascii characters
 ! between 33 and 126
 : available-chars ( -- seq )
-    33 126 [a,b] [ CHAR: : = not ] filter ;
+    33 126 [a,b] [ CHAR: : = ] reject ;
 
 PRIVATE>
 

extra/html/parser/analyzer/analyzer.factor

@@ -179,7 +179,7 @@ ERROR: undefined-find-nth m n seq quot ;
     [ bl bl bl bl [ write "=" write ] [ write bl ] bi* nl ] assoc-each ;
 
 : form. ( vector -- )
-    [ closing?>> not ] filter
+    [ closing?>> ] reject
     [
         {
             { [ dup name>> "form" = ]

extra/irc/messages/base/base.factor

@@ -98,7 +98,7 @@ M: irc-message set-irc-command
     ] [ drop ] if* ;
 
 : define-irc-class ( class params -- )
-    [ { ":" "_" } member? not ] filter
+    [ { ":" "_" } member? ] reject
     [ irc-message ] dip define-tuple-class ;
 
 : define-irc-parameter-slots ( class params -- )

extra/lint/lint.factor

@@ -232,7 +232,7 @@ SYMBOL: lint-definitions-keys
     lintable-words load-definitions
 
     ! Remove words that are their own definition
-    [ [ [ def>> ] [ 1quotation ] bi = not ] filter ] assoc-map
+    [ [ [ def>> ] [ 1quotation ] bi = ] reject ] assoc-map
 
     ! Add manual definitions
     manual-substitutions over '[ _ push-at ] assoc-each
@@ -284,7 +284,7 @@ GENERIC: run-lint ( obj -- obj )
 
 M: sequence run-lint ( seq -- seq )
     [ dup lint ] { } map>assoc trim-self
-    [ second empty? not ] filter filter-symbols ;
+    [ second empty? ] reject filter-symbols ;
 
 M: word run-lint ( word -- seq ) 1array run-lint ;
 

extra/macho/macho.factor

@@ -904,7 +904,7 @@ TYPED: load-commands ( macho: mach_header_32/64 -- load-commands )
     [ symtab_command? ] filter ; inline
 
 : read-array-string ( uchar-array -- string )
-    ascii decode [ 0 = not ] filter ;
+    ascii decode [ 0 = ] reject ;
 
 : segment-sections ( segment-command -- sections )
     {

extra/mason/test/test.factor

@@ -22,7 +22,7 @@ M: method word-vocabulary "method-generic" word-prop word-vocabulary ;
 
 :: do-step ( errors summary-file details-file -- )
     errors
-    [ error-type +linkage-error+ eq? not ] filter
+    [ error-type +linkage-error+ eq? ] reject
     [ file>> ] map members natural-sort summary-file to-file
     errors details-file utf8 [ errors. ] with-file-writer ;
 

extra/math/extras/extras.factor

@@ -115,7 +115,7 @@ PRIVATE>
     [ <clumps> ] [ '[ _ count ] map ] bi* ; inline
 
 : nonzero ( seq -- seq' )
-    [ zero? not ] filter ;
+    [ zero? ] reject ;
 
 : bartlett ( n -- seq )
     dup 1 <= [ 1 = [ 1 1array ] [ { } ] if ] [
@@ -148,10 +148,10 @@ PRIVATE>
     0 [ dup fp-nan? [ drop ] [ + ] if ] binary-reduce ;
 
 : nan-min ( seq -- n )
-    [ fp-nan? not ] filter infimum ;
+    [ fp-nan? ] reject infimum ;
 
 : nan-max ( seq -- n )
-    [ fp-nan? not ] filter supremum ;
+    [ fp-nan? ] reject supremum ;
 
 : fill-nans ( seq -- newseq )
     [ first ] keep [

extra/otug-talk/otug-talk.factor

@@ -37,14 +37,14 @@ CONSTANT: otug-slides
         "Example:"
         { $code
             "\"/etc/passwd\" ascii file-lines"
-            "[ \"#\" head? not ] filter"
+            "[ \"#\" head? ] reject"
             "[ \":\" split first ] map"
             "."
         }
     }
     { $slide "Words"
         { "We can define new words with " { $snippet ": name ... ;" } " syntax" }
-        { $code ": remove-comments ( lines -- lines' )" "    [ \"#\" head? not ] filter ;" }
+        { $code ": remove-comments ( lines -- lines' )" "    [ \"#\" head? ] reject ;" }
         { "Words are grouped into " { $emphasis "vocabularies" } }
         { $link "vocab-index" }
         "Libraries and applications are vocabularies"
@@ -52,13 +52,13 @@ CONSTANT: otug-slides
     }
     { $slide "Constructing quotations"
         { "Suppose we want a " { $snippet "remove-comments*" } " word" }
-        { $code ": remove-comments* ( lines string -- lines' )" "    [ ??? head? not ] filter ;" }
+        { $code ": remove-comments* ( lines string -- lines' )" "    [ ??? head? ] reject ;" }
         { "We use " { $link POSTPONE: '[ } " instead of " { $link POSTPONE: [ } }
         { "Create “holes” with " { $link _ } }
         "Holes filled in left to right when quotation pushed on the stack"
     }
     { $slide "Constructing quotations"
-        { $code ": remove-comments* ( lines string -- lines' )" "    '[ _ head? not ] filter ;" "" ": remove-comments ( lines -- lines' )" "    \"#\" remove-comments* ;" }
+        { $code ": remove-comments* ( lines string -- lines' )" "    '[ _ head? ] reject ;" "" ": remove-comments ( lines -- lines' )" "    \"#\" remove-comments* ;" }
         { { $link @ } " inserts a quotation" }
         { $code ": replicate ( n quot -- seq )" "    '[ drop @ ] map ;" }
         { $code "10 [ 1 10 [a,b] random ] replicate ." }

extra/project-euler/004/004.factor

@@ -21,7 +21,7 @@ IN: project-euler.004
 <PRIVATE
 
 : source-004 ( -- seq )
-    100 999 [a,b] [ 10 divisor? not ] filter ;
+    100 999 [a,b] [ 10 divisor? ] reject ;
 
 : max-palindrome ( seq -- palindrome )
     natural-sort [ palindrome? ] find-last nip ;

extra/project-euler/079/079.factor

@@ -39,7 +39,7 @@ IN: project-euler.079
     [ "Topological sort failed" throw ] [ first ] if-empty ;
 
 : remove-source ( seq elt -- seq )
-    [ swap member? not ] curry filter ;
+    [ swap member? ] curry reject ;
 
 : (topological-sort) ( seq -- )
     dup length 1 > [

extra/resolv-conf/resolv-conf.factor

@@ -90,7 +90,7 @@ PRIVATE>
     [ <resolv.conf> ] dip
     utf8 file-lines
     [ [ blank? ] trim ] map harvest
-    [ "#" head? not ] filter
+    [ "#" head? ] reject
     [ parse-resolv.conf-line ] each ;
 
 : default-resolv.conf ( -- resolv.conf )

extra/robots/robots.factor

@@ -35,7 +35,7 @@ visit-time request-rate crawl-delay unknowns ;
 : normalize-robots.txt ( string -- sitemaps seq )
     string-lines
     [ [ blank? ] trim ] map
-    [ "#" head? not ] filter harvest
+    [ "#" head? ] reject harvest
     [ ":" split1 [ [ blank? ] trim ] bi@ [ >lower ] dip  ] { } map>assoc
     [ first "sitemap" = ] partition [ values ] dip
     [

extra/sequences/extras/extras.factor

@@ -257,7 +257,7 @@ PRIVATE>
     [ empty? not ] swap filter-as ;
 
 : harvest! ( seq -- newseq )
-    [ empty? not ] filter! ;
+    [ empty? ] reject! ;
 
 : head-as ( seq n exemplar -- seq' )
     [ head-slice ] [ like ] bi* ; inline

extra/tools/gc-decode/gc-decode-tests.factor

@@ -72,7 +72,7 @@ IN: tools.gc-decode.tests
 
 { { } } [
     all-words [ normal? ] filter 50 sample
-    [ [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? not ] filter
+    [ [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? ] reject
 ] unit-test
 
 : base-pointer-groups-expected ( word -- seq )

extra/youtube/youtube.factor

@@ -60,8 +60,8 @@ CONSTANT: video-info-url URL" http://www.youtube.com/get_video_info"
     [ "url" of ] [ "sig" of ] bi "&signature=" glue ;
 
 : sanitize ( title -- title' )
-    [ 0 31 between? not ] filter
+    [ 0 31 between? ] reject
-    [ "\"#$%'*,./:;<>?^|~\\" member? not ] filter
+    [ "\"#$%'*,./:;<>?^|~\\" member? ] reject
     200 short head ;
 
 : download-video ( video-id -- )

unmaintained/adsoda/solution2/solution2.factor

@@ -86,7 +86,7 @@ SYMBOL: matrix
     [ 0 0 (echelon) ] with-matrix ;
 
 : nonzero-rows ( matrix -- matrix' )
-    [ [ zero? ] all? not ] filter ;
+    [ [ zero? ] all? ] reject ;
 
 : null/rank ( matrix -- null rank )
     echelon dup length swap nonzero-rows length [ - ] keep ;

unmaintained/alien/inline/inline.factor

@@ -51,7 +51,7 @@ PRIVATE>
 
 : function-types-effect ( -- function types effect )
     scan scan swap ")" parse-tokens
-    [ "(" subseq? not ] filter swap parse-arglist ;
+    [ "(" subseq? ] reject swap parse-arglist ;
 
 : prototype-string ( function types effect -- str )
     [ [ cify-type ] map ] dip