flag? ( object -- ? )
Flags

Prev:	flag
Next:	raise-flag ( flag -- )

Vocabulary
concurrency.flags

Inputs and outputs

object	an object
?	a boolean

Word description
Tests if the object is an instance of the flag class.

Definition

USING: classes.tuple.private kernel slots.private ;

IN: concurrency.flags

: flag? ( object -- ? )
    dup tuple? [ layout-of 7 slot \ flag eq? ] [ drop f ] if ;