reset-c-type ( word -- )

Vocabulary

alien.parser

Inputs

word

an object

Outputs

None

Definition

USING: classes kernel words ;

IN: alien.parser

: reset-c-type ( word -- )
    dup "struct-size" word-prop [
        dup
        [ forget-class ] [ "struct-size" remove-word-prop ] bi
    ] when {
        "c-type"
        "callback-effect"
        "callback-library"
        "callback-varargs"
    } remove-word-props ;