read-only-slot? ( n class -- ? )

Vocabulary

compiler.tree.propagation.slots

Inputs

n	an object
class	an object

Outputs

?

an object

Definition

USING: accessors classes.tuple kernel sequences ;

IN: compiler.tree.propagation.slots

: read-only-slot? ( n class -- ? )
    all-slots [ offset>> = ] with find nip dup
    [ read-only>> ] when ;