From a1f66a531be8c89974f1959432e733d3434fbf01 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 24 Aug 2021 19:19:58 +0200 Subject: Fix warning calls in string->datetime. --- module/datetime.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'module/datetime.scm') diff --git a/module/datetime.scm b/module/datetime.scm index 9abd1307..c1fae3ce 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -648,10 +648,13 @@ [else dt])) (cond [(null? str) - ;; (warning "Premature end of string") + ;; ((@ (calp util exceptions) warning) + ;; "Premature end of string, still got fmt = ~s" + ;; fmt) dt] [(null? fmt) - ;; (warning "Unsparsed characters at end of string") + ;; ((@ (calp util exceptions) warning) + ;; "Unsparsed characters at end of string") dt] [(eq? #\~ (car fmt)) (case (cadr fmt) -- cgit v1.2.3