def>out-forms ( obj -- )

Vocabulary

libclang

Inputs

obj

an object

Outputs

None

Definition

USING: accessors kernel sets ;

IN: libclang

: def>out-forms ( obj -- )
    dup order>> clang-state> out-form-orders-written>> in?
    [ drop ] [
        [ [ def>out-form ] keep save-out-form ] [
            order>> clang-state> out-form-orders-written>>
            adjoin
        ] bi
    ] if ;