From 96b40e8846890a040a3c7883aa9bd67497d0535e Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 5 Aug 2002 14:27:12 +0000
Subject: [PATCH] Fix to allow single character here strings.

---
 scsh/here.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scsh/here.scm b/scsh/here.scm
index 957c291..86a2291 100644
--- a/scsh/here.scm
+++ b/scsh/here.scm
@@ -94,8 +94,8 @@
     (cond ((eof-object? delim)
 	   (reading-error port
 			  "EOF while reading #<< here-string delimiter line."))
-	  ((= 1 (string-length delim))
-	   (reading-error port "#<< here-string empty delimiter line"))
+ 	  ((= 0 (string-length delim))
+ 	   (reading-error port "#<< here-string empty delimiter line"))
 
 	  (else
 	   (let lp ((text '()))