c-type-clamp ( value c-type -- value' )

Vocabulary
alien.c-types

Definition

USING: kernel math.order sequences ;

IN: alien.c-types

: c-type-clamp ( value c-type -- value' )
    dup { float double } member-eq?
    [ drop ] [ c-type-interval clamp ] if ; inline