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" }
    remove-word-props ;