summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-19.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/srfi/srfi-19.scm')
-rw-r--r--module/srfi/srfi-19.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm
index 282061584..8a86b35fa 100644
--- a/module/srfi/srfi-19.scm
+++ b/module/srfi/srfi-19.scm
@@ -1224,7 +1224,7 @@
((#\7) 7)
((#\8) 8)
((#\9) 9)
- (else (priv:time-error 'bad-date-template-string
+ (else (priv:time-error 'priv:char->int 'bad-date-template-string
(list "Non-integer character" ch)))))
;; read an integer upto n characters long on port; upto -> #f is any length