float-promotion ( source -- promoted )

Vocabulary

alien.c-types.varargs.private

Inputs

source

an object

Outputs

promoted

an object

Definition

USING: alien.c-types alien.c-types.varargs kernel math ;

IN: alien.c-types.varargs.private

: float-promotion ( source -- promoted )
    c-type-unboxer-quot
    '[ @ float>bits bits>float ] double swap
    <promoted-vararg-c-type> ;