Handbook
Glossary
duration- ( duration1 duration2 -- duration3 )
Vocabulary
calendar
Inputs
duration1
an
object
duration2
an
object
Outputs
duration3
an
object
Definition
USING:
accessors
combinators
kernel
math
;
IN:
calendar
:
duration-
( duration1 duration2 -- duration3 )
{
[
[
year>>
]
bi@
-
]
[
[
month>>
]
bi@
-
]
[
[
day>>
]
bi@
-
]
[
[
hour>>
]
bi@
-
]
[
[
minute>>
]
bi@
-
]
[
[
second>>
]
bi@
-
]
}
2cleave
<duration>
;
inline