Handbook
Glossary
same-day? ( ts1 ts2 -- ? )
Vocabulary
calendar
Inputs
ts1
an
object
ts2
an
object
Outputs
?
an
object
Definition
USING:
accessors
combinators.smart
kernel
;
IN:
calendar
:
same-day?
( ts1 ts2 -- ? )
[
{
[
year>>
]
[
month>>
]
[
day>>
]
}
cleave>array
]
same?
;