diff options
-rw-r--r-- | module/datetime.scm | 7 |
1 files changed, 5 insertions, 2 deletions
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) |