struct-slot-class ( c-type -- class' )

Vocabulary

classes.struct

Inputs

c-type

an object

Outputs

class'

an object

Definition

USING: alien alien.c-types byte-arrays kernel ;

IN: classes.struct

: struct-slot-class ( c-type -- class' )
    lookup-c-type c-type-boxed-class dup \ byte-array =
    [ drop \ c-ptr ] when ;