define-endian-packed-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 ;

IN: alien.endian

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