reject-some-paths ( seq -- seq' )

Vocabulary

modern.paths

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: sequences sets ;

IN: modern.paths

: reject-some-paths ( seq -- seq' )
    {
        "resource:core/vocabs/loader/test/a/a.factor"
        "resource:core/vocabs/loader/test/b/b.factor"
        "resource:core/vocabs/loader/test/c/c.factor"
        "resource:core/vocabs/loader/test/d/d.factor"
        "resource:core/vocabs/loader/test/e/e.factor"
        "resource:core/vocabs/loader/test/f/f.factor"
        "resource:core/vocabs/loader/test/g/g.factor"
        "resource:core/vocabs/loader/test/h/h.factor"
        "resource:core/vocabs/loader/test/i/i.factor"
        "resource:core/vocabs/loader/test/j/j.factor"
        "resource:core/vocabs/loader/test/k/k.factor"
        "resource:core/vocabs/loader/test/l/l.factor"
        "resource:core/vocabs/loader/test/m/m.factor"
        "resource:core/vocabs/loader/test/n/n.factor"
        "resource:core/vocabs/loader/test/o/o.factor"
        "resource:core/vocabs/loader/test/p/p.factor"
    } diff [ ".modern" tail? ] reject ;