[Guile-commits] 02/03: print token in error msg for unknown hash object

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit d6753e5af5f31e33a0523163d3339bcb5e10a0b2
Author: Michael Gran <spk121@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)