mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

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

Browse source 
* module/ice-9/read.scm (%read): Tweak "unterminated block constant"
error to be more compatible with C reader.
This commit is contained in:
Andy Wingo 2021-03-03 16:20:53 +01:00
parent dba7669077
commit 079800d682
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/read.scm
View file

@ -755,7 +755,7 @@
(let lp ((ch (next))) (let lp ((ch (next)))
(cond (cond
((eof-object? ch) ((eof-object? ch)
(error "unexpected end of input while looking for !#")) (error "unterminated `#! ... !#' comment"))
((eqv? ch #\!) ((eqv? ch #\!)
(let ((ch (next))) (let ((ch (next)))
(if (eqv? ch #\#) (if (eqv? ch #\#)