From 46d431a05d22824998a0fe20da6d1639d5bb4e76 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 14 Feb 2020 11:02:24 +0100 Subject: REMOVE datetime-. --- module/srfi/srfi-19/alt.scm | 7 ------- 1 file changed, 7 deletions(-) (limited to 'module') 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 -- cgit v1.2.3