diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-14 11:02:24 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-14 11:02:24 +0100 |
| commit | 46d431a05d22824998a0fe20da6d1639d5bb4e76 (patch) | |
| tree | e2960fb5003ece0785df46200d70290a45161b6f /module/srfi | |
| parent | Remove datetime- from tests. (diff) | |
| download | calp-46d431a05d22824998a0fe20da6d1639d5bb4e76.tar.gz calp-46d431a05d22824998a0fe20da6d1639d5bb4e76.tar.xz | |
REMOVE datetime-.
Diffstat (limited to 'module/srfi')
| -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 |