fix-const ( symbol-prefix const -- )

Vocabulary

gobject-introspection.loader

Inputs

symbol-prefix	an object
const	an object

Outputs

None

Definition

USING: accessors combinators kernel sequences ;

IN: gobject-introspection.loader

: fix-const ( symbol-prefix const -- )
    {
        { [ dup c-identifier>> ] [ 2drop ] }
        {
            [ dup c-type>> ]
            [ nip [ c-type>> ] keep c-identifier<< ]
        }
        [ [ name>> append ] keep c-identifier<< ]
    } cond ;