diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 23:48:11 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 23:48:11 +0200 |
| commit | 7f95d68c955694625c288c679508952363c4e0bd (patch) | |
| tree | 841f74d16e58d487fbd2059e4d577adee4d21097 | |
| parent | Remove (add|remove)-day, and month[+-]. (diff) | |
| download | calp-7f95d68c955694625c288c679508952363c4e0bd.tar.gz calp-7f95d68c955694625c288c679508952363c4e0bd.tar.xz | |
Move (date|time)-zero? higher up in datetime.
| -rw-r--r-- | module/datetime.scm | 18 |
1 files 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 <datetime> @@ -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)) |