From e54311fb617d024734db5d90fa9afa0ee89b0bb7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 17 Mar 2022 18:11:52 +0100 Subject: Stop exporting internal time+% --- module/datetime.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/datetime.scm b/module/datetime.scm index d5ef03b1..75cffdab 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -1124,7 +1124,7 @@ Returns -1 on failure" ;; overflow is number of days above ;; time x time → time x int -(define-public (time+% base change) +(define (time+% base change) ;; while (day base) > (days-in-month base) ;; month++; days -= (days-in-month base) -- cgit v1.2.3