diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-26 05:03:35 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-26 05:03:35 +0100 |
| commit | 2acb65a989d54c0ecf8bb45fd7f408b537bd5d15 (patch) | |
| tree | 1419a995037336296509349495ab865ef17e16ff /module/srfi | |
| parent | Reorder srfi-19 alt. (diff) | |
| download | calp-2acb65a989d54c0ecf8bb45fd7f408b537bd5d15.tar.gz calp-2acb65a989d54c0ecf8bb45fd7f408b537bd5d15.tar.xz | |
Export as-{date,time}.
Diffstat (limited to 'module/srfi')
| -rw-r--r-- | module/srfi/srfi-19/alt/util.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/srfi/srfi-19/alt/util.scm b/module/srfi/srfi-19/alt/util.scm index 9b394105..877da69f 100644 --- a/module/srfi/srfi-19/alt/util.scm +++ b/module/srfi/srfi-19/alt/util.scm @@ -19,12 +19,12 @@ (stream-iterate (cut date+ <> #0-0-1) start-day)) -(define (as-date date/-time) +(define-public (as-date date/-time) (if (date? date/-time) date/-time (get-date date/-time))) -(define (as-time date/-time) +(define-public (as-time date/-time) (if (datetime? date/-time) (get-time date/-time) #00:00:00)) |