?class ( object -- class )

Vocabulary

variants

Inputs

object

an object

Outputs

class

an object

Definition

USING: classes kernel words ;

IN: variants

: ?class ( object -- class ) dup word? [ class-of ] unless ;