Fix unterminated #!...!# error message in Scheme reader

* module/ice-9/read.scm (%read): Tweak "unterminated block constant"
error to be more compatible with C reader.

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 8a6c56c8b2f8c2d239d4735e072a089b56138f10..7ce4b416a82d1fcc9dfa70bc0ba719ee11783b69 100644 (file)
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -755,7 +755,7 @@
     (let lp ((ch (next)))
       (cond
        ((eof-object? ch)
-        (error "unexpected end of input while looking for !#"))
+        (error "unterminated `#! ... !#' comment"))
        ((eqv? ch #\!)
         (let ((ch (next)))
           (if (eqv? ch #\#)