nth-day-this-month ( $timestamp $n $day -- timestamp' )


Vocabulary
calendar.private

Inputs
$timestampan object
$nan object
$dayan object


Outputs
timestamp'an object


Definition


:: nth-day-this-month ( $timestamp $n $day -- timestamp' )
$timestamp clone $timestamp start-of-month $day
day-this-week [ [ month>> ] same? ] keep swap
[ $n ] [ $n 1 + ] if weeks time+ ;