Handbook
Glossary
do-empty-interval ( i1 i2 quot -- i3 )
Vocabulary
math
.
intervals
Inputs
i1
an
object
i2
an
object
quot
an
object
Outputs
i3
an
object
Definition
USING:
combinators
kernel
;
IN:
math.intervals
:
do-empty-interval
( i1 i2 quot -- i3 )
{
{
[
pick
empty-interval?
]
[
2drop
]
}
{
[
over
empty-interval?
]
[
drop
nip
]
}
{
[
pick
full-interval?
]
[
2drop
]
}
{
[
over
full-interval?
]
[
drop
nip
]
}
[
call
]
}
cond
;
inline