steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

crontab: fix day-of-week to be OR instead of AND days.

windows-drag
John Benediktsson 2019-03-23 08:21:26 -07:00
parent e4c94e7d98
commit deb4b7c0d6
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/crontab/crontab.factor
View File

@ -68,15 +68,16 @@ CONSTANT: aliases H{
timestamp day>> :> day timestamp day>> :> day
cronentry days>> [ day >= ] find nip cronentry days>> [ day >= ] find nip
dup day = [ drop ] [ [ day - ] [
[ cronentry days>> first timestamp 1 +month drop ] unless* timestamp days-in-month cronentry days>> first -
timestamp 0 >>hour 0 >>minute day<< drop t ] if*
] if
timestamp day-of-week :> weekday timestamp day-of-week :> weekday
cronentry days-of-week>> [ weekday >= ] find nip [ cronentry days-of-week>> [ weekday >= ] find nip [
cronentry days-of-week>> first 7 + cronentry days-of-week>> first 7 +
] unless* weekday - [ ] unless* weekday -
min [
timestamp 0 >>hour 0 >>minute swap +day 2drop t timestamp 0 >>hour 0 >>minute swap +day 2drop t
] unless-zero ] unless-zero