diff options
author | Andy Wingo <wingo@pobox.com> | 2021-03-03 16:20:53 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-03-03 16:22:56 +0100 |
commit | 079800d68291b27a7c9b66d183bf79eb22808fc5 (patch) | |
tree | 237d4759f14efbf1b5f0ad9da370d7572c8a3f00 /module | |
parent | dba766907715ccab11936edf2b1dc10905c15c63 (diff) | |
download | guile-079800d68291b27a7c9b66d183bf79eb22808fc5.tar.gz |
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.
Diffstat (limited to 'module')
-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 8a6c56c8b..7ce4b416a 100644 --- 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 #\#) |