mike121 pushed a commit to branch master in repository guile. commit d6753e5af5f31e33a0523163d3339bcb5e10a0b2 Author: Michael Gran <spk...@yahoo.com> AuthorDate: Fri Mar 5 22:26:00 2021 -0800
print token in error msg for unknown hash object * module/ice-9/read.scm (read-number-and-radix): modified --- module/ice-9/read.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm index 3b8fd35..54de888 100644 --- a/module/ice-9/read.scm +++ b/module/ice-9/read.scm @@ -544,7 +544,7 @@ (define (read-number-and-radix ch) (let ((tok (string-append "#" (read-token ch)))) (or (string->number tok) - (error "unknown # object" tok)))) + (error "unknown # object: ~S" tok)))) (define (read-extended-symbol) (define (next-not-eof)