diff options
Diffstat (limited to 'stdlib/source/lux/time/date.lux')
| -rw-r--r-- | stdlib/source/lux/time/date.lux | 37 |
1 files changed, 13 insertions, 24 deletions
diff --git a/stdlib/source/lux/time/date.lux b/stdlib/source/lux/time/date.lux index 994b95dbe..fa7a40676 100644 --- a/stdlib/source/lux/time/date.lux +++ b/stdlib/source/lux/time/date.lux @@ -38,32 +38,21 @@ (n/= (get@ #day reference) (get@ #day sample))))) -(def: (date/< reference sample) - (-> Date Date Bit) - (or (i/< (get@ #year reference) - (get@ #year sample)) - (and (i/= (get@ #year reference) - (get@ #year sample)) - (or (:: //month.order < - (get@ #month reference) - (get@ #month sample)) - (and (:: //month.order = - (get@ #month reference) - (get@ #month sample)) - (n/< (get@ #day reference) - (get@ #day sample))))))) - (structure: #export order (Order Date) (def: &equivalence ..equivalence) - (def: < date/<) - (def: (> reference sample) - (date/< sample reference)) - (def: (<= reference sample) - (or (date/< reference sample) - (:: ..equivalence = reference sample))) - (def: (>= reference sample) - (or (date/< sample reference) - (:: ..equivalence = sample reference)))) + (def: (< reference sample) + (or (i/< (get@ #year reference) + (get@ #year sample)) + (and (i/= (get@ #year reference) + (get@ #year sample)) + (or (:: //month.order < + (get@ #month reference) + (get@ #month sample)) + (and (:: //month.order = + (get@ #month reference) + (get@ #month sample)) + (n/< (get@ #day reference) + (get@ #day sample)))))))) ## Based on this: https://stackoverflow.com/a/42936293/6823464 (def: (pad value) |