check-va-list ( cursor -- )

Vocabulary

alien.varargs

Inputs

cursor

an object

Outputs

None

Definition

USING: accessors alien.private combinators.short-circuit kernel
threads ;

IN: alien.varargs

: check-va-list ( cursor -- )
    lifetime>> {
        [ active?>> ]
        [ callback>> current-callback = ]
        [ thread>> self eq? ]
    } 1&& [ expired-va-list ] unless ;