flag-covered ( coverage -- )

Vocabulary

tools.coverage

Inputs

coverage

an object

Outputs

None

Word description

A word that sets the executed? slot of the coverage tuple when the covered value is true.

Definition

USING: accessors kernel namespaces ;

IN: tools.coverage

: flag-covered ( coverage -- )
    covered get-global [ t >>executed? ] when drop ;