Fix to allow single character here strings.
This commit is contained in:
parent
f172795016
commit
96b40e8846
|
@ -94,7 +94,7 @@
|
||||||
(cond ((eof-object? delim)
|
(cond ((eof-object? delim)
|
||||||
(reading-error port
|
(reading-error port
|
||||||
"EOF while reading #<< here-string delimiter line."))
|
"EOF while reading #<< here-string delimiter line."))
|
||||||
((= 1 (string-length delim))
|
((= 0 (string-length delim))
|
||||||
(reading-error port "#<< here-string empty delimiter line"))
|
(reading-error port "#<< here-string empty delimiter line"))
|
||||||
|
|
||||||
(else
|
(else
|
||||||
|
|
Loading…
Reference in New Issue