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

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

Vocabulary
alien.c-types

Inputs

value	an object
c-type	an object

Outputs

value'

Definition

USING: kernel math.order sequences ;

IN: alien.c-types

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