scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/here.scm
View File

@ -94,8 +94,8 @@
(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
(let lp ((text '())) (let lp ((text '()))