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 )
2dup interval-contains? [ drop ] [ not-in-interval ] if ;