filter-moved ( set1 set2 -- seq )

Vocabulary

parser

Inputs

set1	a set
set2	a set

Outputs

seq	a sequence of definitions

Word description

Removes all definitions from set2 which are in set1 or are no longer present in the current-source-file.

Definition

USING: accessors combinators definitions kernel namespaces
sequences sets slots source-files ;

IN: parser

: filter-moved ( set1 set2 -- seq )
    swap diff members [
        {
            {
                [
                    dup where ?first current-source-file get
                    path>> = not
                ]
                [ f ]
            }
            { [ dup reader-method? ] [ f ] }
            { [ dup writer-method? ] [ f ] }
            [ t ]
        } cond nip
    ] filter ;