(CREATE-C-TYPE) ( name -- word )

Vocabulary

alien.parser

Inputs

name

an object

Outputs

word

an object

Definition

USING: combinators compiler.units vocabs.parser words ;

IN: alien.parser

: (CREATE-C-TYPE) ( name -- word )
    validate-c-type-name current-vocab create-word {
        [ fake-definition ]
        [ set-last-word ]
        [ reset-generic ]
        [ reset-c-type ]
        [ ]
    } cleave ;