class-tag ( class -- tag/f )

Vocabulary

compiler.cfg.intrinsics.slots

Inputs

class

a class

Outputs

tag/f

a number or f

Word description

Finds the class number for this class if it is a subclass of a builtin class, or f if it isn't.

Examples

USING: compiler.cfg.intrinsics.slots math prettyprint ; complex class-tag .
7

Definition

USING: classes.algebra classes.builtin kernel namespaces
sequences ;

IN: compiler.cfg.intrinsics.slots

: class-tag ( class -- tag/f )
    builtins get [ class<= ] with find drop ;