init-struct ( class with-prototype: ( prototype -- alien ) sans-prototype: ( class -- alien ) -- alien )

Vocabulary

classes.struct.private

Inputs

class	an object
with-prototype	a quotation with stack effect ( prototype -- alien )
sans-prototype	a quotation with stack effect ( class -- alien )

Outputs

alien

an object

Definition

USING: classes.struct kernel ;

IN: classes.struct.private

: init-struct
    ( class with-prototype: ( prototype -- alien ) sans-prototype: ( class -- alien ) -- alien )
    '[ [ struct-prototype ] _ _ ?if ] keep memory>struct ;
    inline