define-endian-struct-class ( class slots endian -- )

Vocabulary

alien.endian

Inputs

class	an object
slots	an object
endian	an object

Outputs

None

Definition

USING: classes.struct.private kernel slots ;

IN: alien.endian

: define-endian-struct-class ( class slots endian -- )
    swap make-slots set-endian-slots
    [ compute-struct-offsets ] [ struct-alignment ]
    (define-struct-class) ;