diff options
Diffstat (limited to 'module/srfi/srfi-19/alt/util.scm')
| -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)) |