diff options
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))]))) |