hack: add a bias to fix rescheduling
This commit is contained in:
parent
5a7730e095
commit
03ee6d57a5
|
@ -55,7 +55,7 @@
|
|||
|
||||
(define (schedule-next)
|
||||
(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 fullmoon-jd (- (lunar-next-phase now-jd 'full)
|
||||
(/ DT 86400)))
|
||||
|
|
Loading…
Reference in New Issue