diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
| commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
| tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/datetime.scm | |
| parent | Remove procedure tabset. (diff) | |
| download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz | |
Normalize keyword syntax.
Diffstat (limited to 'module/datetime.scm')
| -rw-r--r-- | module/datetime.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/datetime.scm b/module/datetime.scm index de1495ec..e3d0a462 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -5,13 +5,14 @@ :use-module (srfi srfi-1) :use-module (srfi srfi-9) :use-module (srfi srfi-9 gnu) + :use-module (srfi srfi-41) :use-module (srfi srfi-71) + :use-module (srfi srfi-88) :use-module ((hnh util) :select (vector-last set! -> ->> swap case* set span-upto set->)) - :use-module (srfi srfi-41) :use-module (ice-9 i18n) :use-module (ice-9 format) :use-module (ice-9 regex) @@ -420,10 +421,10 @@ (define (datetime-max a b) (if (datetime< a b) b a)) -(define* (month+ date-object #:optional (change 1)) +(define* (month+ date-object optional: (change 1)) (date+ date-object (date month: change))) -(define* (month- date-object #:optional (change 1)) +(define* (month- date-object optional: (change 1)) (date- date-object (date month: change))) ;; https://projecteuclid.org/euclid.acta/1485888738 |