hack: add a bias to fix rescheduling
This commit is contained in:
parent
5a7730e095
commit
03ee6d57a5
|
@ -55,7 +55,7 @@
|
||||||
|
|
||||||
(define (schedule-next)
|
(define (schedule-next)
|
||||||
(define now (current-date/utc))
|
(define now (current-date/utc))
|
||||||
(define now-jd (date->jd now))
|
(define now-jd (+ 0.5 (date->jd now)))
|
||||||
(define DT (dynamical-delta-t (date-year now)))
|
(define DT (dynamical-delta-t (date-year now)))
|
||||||
(define fullmoon-jd (- (lunar-next-phase now-jd 'full)
|
(define fullmoon-jd (- (lunar-next-phase now-jd 'full)
|
||||||
(/ DT 86400)))
|
(/ DT 86400)))
|
||||||
|
|
Loading…
Reference in New Issue