primitive-pointer-type? ( type -- ? )

Vocabulary

alien.c-types.private

Inputs

type

an object

Outputs

?

an object

Definition

USING: alien.c-types kernel sequences ;

IN: alien.c-types.private

: primitive-pointer-type? ( type -- ? )
    dup c-type-word? [
        resolve-pointer-typedef
        [ void? ] [ primitive-types member? ] bi or
    ] [ drop t ] if ;