check-interval ( value interval -- value )


Vocabulary
calendar

Inputs
valuean object
intervalan object


Outputs
valuean object


Definition
USING: kernel math.intervals ;

IN: calendar

: check-interval ( value interval -- value )
[ interval-contains? ] [ drop ] [ not-in-interval ] 2if ;