llvm-throw-on-error ( quot -- )

Vocabulary

llvm.wrappers

Inputs

quot

an object

Outputs

None

Definition

USING: alien.c-types alien.data kernel ;

IN: llvm.wrappers

: llvm-throw-on-error ( quot -- )
    keep swap 0 = [ drop ] [ void* deref llvm-throw ] if ;
    inline