From 7f95d68c955694625c288c679508952363c4e0bd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 Jun 2022 23:48:11 +0200 Subject: Move (date|time)-zero? higher up in datetime. --- module/datetime.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/module/datetime.scm b/module/datetime.scm index de1b3076..9118d42f 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -31,6 +31,9 @@ get-date get-timezone + date-zero? + time-zero? + datetime->unix-time unix-time->datetime @@ -42,9 +45,6 @@ as-time as-datetime - date-zero? - time-zero? - leap-year? days-in-month days-in-year @@ -210,6 +210,12 @@ (hour r) (minute r) (second r)))))) +(define (date-zero? date) + (= 0 (year date) (month date) (day date))) + +(define (time-zero? time) + (= 0 (hour time) (minute time) (second time))) + ;;; DATETIME (define-immutable-record-type @@ -345,12 +351,6 @@ -(define (date-zero? date) - (= 0 (year date) (month date) (day date))) - -(define (time-zero? time) - (= 0 (hour time) (minute time) (second time))) - ;; int -> bool (define (leap-year? year) (and (zero? (remainder year 4)) -- cgit v1.2.3