summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2021-03-05 22:33:20 -0800
committerMichael Gran <spk121@yahoo.com>2021-03-05 22:33:20 -0800
commit1114122fbb13e843276a479f0966087e9d52e1f7 (patch)
tree1355b4f55da9837976b6ef5ff47f71977cda6eed
parentd6753e5af5f31e33a0523163d3339bcb5e10a0b2 (diff)
downloadguile-1114122fbb13e843276a479f0966087e9d52e1f7.tar.gz
tweak unknown hash object error in reader
This makes it match the other species of unknown hash object error when reading number with radix. * module/ice-9/read.scm (read-sharp): modified
-rw-r--r--module/ice-9/read.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 54de88803..17215d8b1 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -621,7 +621,7 @@
(list 'unsyntax (read-subexpression "unsyntax expression"))))
((#\n) (read-nil))
(else
- (error "Unknown # object: ~S" ch)))))))
+ (error "Unknown # object: ~S" (string #\# ch))))))))
(define (read-number ch)
(let* ((str (read-token ch)))