Fix to allow single character here strings.

This commit is contained in:
mainzelm 2002-08-05 14:27:12 +00:00
parent f172795016
commit 96b40e8846
1 changed files with 2 additions and 2 deletions

View File

@ -94,7 +94,7 @@
(cond ((eof-object? delim)
(reading-error port
"EOF while reading #<< here-string delimiter line."))
((= 1 (string-length delim))
((= 0 (string-length delim))
(reading-error port "#<< here-string empty delimiter line"))
(else