parent
b3bcf537cc
commit
ca9f74e993
|
@ -55,7 +55,9 @@ CONSTANT: aliases H{
|
||||||
|
|
||||||
:: next-time-after ( cronentry timestamp -- )
|
:: next-time-after ( cronentry timestamp -- )
|
||||||
|
|
||||||
timestamp 0 >>second 1 minutes (time+) 2drop
|
timestamp second>> 0 > [
|
||||||
|
timestamp 0 >>second 1 minutes (time+) 2drop
|
||||||
|
] when
|
||||||
|
|
||||||
timestamp month>> :> month
|
timestamp month>> :> month
|
||||||
cronentry months>> [ month >= ] find nip [
|
cronentry months>> [ month >= ] find nip [
|
||||||
|
|
Loading…
Reference in New Issue