diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-24 19:19:58 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-24 19:19:58 +0200 |
| commit | a1f66a531be8c89974f1959432e733d3434fbf01 (patch) | |
| tree | 0692e38837daa04d717addce60a058d959e96f6c /module/datetime.scm | |
| parent | Slightly improve error handling in test-runner. (diff) | |
| download | calp-a1f66a531be8c89974f1959432e733d3434fbf01.tar.gz calp-a1f66a531be8c89974f1959432e733d3434fbf01.tar.xz | |
Fix warning calls in string->datetime.
Diffstat (limited to 'module/datetime.scm')
| -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) |