diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/srfi/srfi-19/alt.scm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/module/srfi/srfi-19/alt.scm b/module/srfi/srfi-19/alt.scm index ca4bb97d..08c41204 100644 --- a/module/srfi/srfi-19/alt.scm +++ b/module/srfi/srfi-19/alt.scm @@ -481,13 +481,6 @@ (date day: overflow)) time: time))) -(define-public (datetime- base change) - (let* ((time overflow (time- (get-time base) (get-time change)))) - (datetime date: (date- (get-date base) - (get-date change) - (date day: overflow)) - time: time))) - (define (datetime->srfi-19-date date) ((@ (srfi srfi-19) make-date) 0 |