(index-files) ( files index -- )

Vocabulary

rosetta-code.inverted-index

Inputs

files	an object
index	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: rosetta-code.inverted-index

: (index-files) ( files index -- )
    [ [ [ file-words ] keep ] dip swap add-to-index ] curry each
    ;