diff options
author | Michael Gran <spk121@yahoo.com> | 2021-03-05 22:33:20 -0800 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2021-03-05 22:33:20 -0800 |
commit | 1114122fbb13e843276a479f0966087e9d52e1f7 (patch) | |
tree | 1355b4f55da9837976b6ef5ff47f71977cda6eed | |
parent | d6753e5af5f31e33a0523163d3339bcb5e10a0b2 (diff) | |
download | guile-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.scm | 2 |
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))) |