diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-01-29 18:44:07 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-01-29 18:49:05 +0100 |
| commit | 385ebecece12ad556683f8c98b8f9d612795737a (patch) | |
| tree | a58818c4cbd79b917ac217e60f25a3abbd05580b /module/datetime.scm | |
| parent | Add ~b and ~p flags to datetime parser. (diff) | |
| download | calp-385ebecece12ad556683f8c98b8f9d612795737a.tar.gz calp-385ebecece12ad556683f8c98b8f9d612795737a.tar.xz | |
Add span-upto.
Diffstat (limited to 'module/datetime.scm')
| -rw-r--r-- | module/datetime.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/datetime.scm b/module/datetime.scm index 66eab8ca..e4a17779 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -712,7 +712,7 @@ Returns -1 on failure" ;; other than the top level, to allow better error ;; messages. (scm-error 'misc-error "string->datetime" - "Mismatched symbol, expected ~a got ~a" + "Mismatched symbol, expected ~s got ~s" (list #\~ (car str)) #f))] ;; TODO is this lost if not at the end? @@ -801,7 +801,7 @@ Returns -1 on failure" (cdr fmt) dt) (scm-error 'misc-error "string->datetime" - "Mismatched symbol, expected ~a got ~a" + "Mismatched symbol, expected ~s got ~s" (list (car fmt) (car str)) #f))]))) |