Handbook
Glossary
nth-day-this-month ( $timestamp $n $day -- timestamp' )
Vocabulary
calendar
.
private
Inputs
$timestamp
an
object
$n
an
object
$day
an
object
Outputs
timestamp'
an
object
Definition
USING:
accessors
calendar
kernel
math
;
IN:
calendar.private
::
nth-day-this-month
( $timestamp $n $day -- timestamp' )
$timestamp
clone
$timestamp
start-of-month
$day
day-this-week
[
[
month>>
]
same?
]
1check
[
$n
]
[
$n 1
+
]
if
weeks
time+
;